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Preface 



In a remarkable development, I have constructed a new definition for a 
self-delimiting universal Turing machine (UTM) that is easy to program 
and runs very quickly. This provides a new foundation for algorithmic 
information theory (AIT), which is the theory of the size in bits of 
programs for self-delimiting UTM's. Previously, AIT had an abstract 
mathematical quality. Now it is possible to write down executable 
programs that embody the constructions in the proofs of theorems. So 
AIT goes from dealing with remote idealized mythical objects to being 
a theory about practical down-to-earth gadgets that one can actually 
play with and use. 

This new self-delimiting UTM is implemented via an extremely fast 
LISP interpreter written in C The universal Turing machine U is writ- 
ten in this LISP. This LISP also serves as a very high-level assembler 
to put together binary programs for U. The programs that go into U, 
and whose size we measure, are bit strings. The output from U, on the 
other hand, consists of a single LISP S-expression, in the case of finite 
computations, and of an infinite set of these S-expressions, in the case 
of infinite computations. 

The LISP used here is based on the version of LISP that I used in 
my book Algorithmic Information Theory, Cambridge University Press, 
1987. The difference is that a) I have found a self-delimiting way to give 
binary data to LISP programs, b) I have found a natural way to handle 
unending computations, which is what formal axiomatic systems are, 
in LISP, and c) I have found a way to eliminate more parentheses from 
M-expressions. 

Using this new software, as well as the latest theoretical ideas, it 
is now possible to give a self-contained "hands on" course presenting 
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very concretely my latest proofs of my two fundamental information- 
theoretic incompleteness theorems. The first of these theorems states 
that an A^-bit formal axiomatic system cannot enable one to exhibit 
any specific object with program-size complexity greater than N + c. 
The second of these theorems states that an A^-bit formal axiomatic 
system cannot enable one to determine more than N + c' scattered bits 
of the halting probability Q. 

Most people believe that anything that is true is true for a reason. 
These theorems show that some things are true for no reason at all, 
i.e., accidentally, or at random. 

The latest and I believe the deepest proofs of these two theorems 
were originally presented in my paper "Information-theoretic incom- 
pleteness," Applied Mathematics and Computation 52 (1992), pp. 83- 
101. This paper is reprinted in my book Information- Theoretic Incom- 
pleteness, World Scientific, 1992. 

As is shown in this course, the algorithms considered in the proofs 
of these two theorems are now easy to program and run, and by looking 
at the size in bits of these programs one can actually, for the first time, 
determine exact values for the constants c and c'. Indeed, c = 735 bits 
and c' = 2933 bits. 

This approach and software were used in an intense short course 
on the limits of mathematics that I gave at the University of Maine in 
Orono in June 1994. I wish to thank Prof. George Markowsky of the 
University of Maine for his stimulating invitation to give this course, 
for all his hard work organizing the course and porting my software to 
PC's, for many helpful suggestions on presenting this material, and in 
particular for the crucial suggestion that led me to a vastly improved 
algorithm for computing lower bounds on the halting probability Q (see 
omega. 1 below). 

I thank the dozen participants in the short course, who were mostly 
professors of mathematics and computer science, for their enthusiasm 
and determination and extremely useful feedback. I also thank Prof. 
Cristian Calude of the University of Auckland, Prof. John Casti of the 
Santa Fe Institute, and Prof. Walter Meyerstein of the University of 
Barcelona for stimulating discussions at the delicate initial phase of 
this project. 

I am grateful to IBM for its enthusiastic and unwavering support of 
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my research for a quarter of a century, and to my current management 
chain at the IBM Research Division, Jeff Jaffe, Eric Kronstadt, and 
Marty Hopkins. Finally I thank the RISC project group, of which I am 
a member, for designing the marvelous IBM RISC System/6000 work- 
stations that I have used for all these calculations, and for providing 
me with the latest models of this spectacular computing equipment. 

All enquires, comments and suggestions regarding this software 
should be sent via e-mail to chaitin at watson.ibm.com. 

Gregory Chaitin 
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Responses to "Theoretical 
Mathematics" (excerpt) 

AMS Bulletin 30 (1994), pp. 181-182 



One normally thinks that everything that is true is true for a reason. 
I've found mathematical truths that are true for no reason at all. These 
mathematical truths are beyond the power of mathematical reasoning 
because they are accidental and random. 

Using software written in Matheniatica that runs on an IBM 
RS/6000 workstation [5,7], I constructed a perverse 200-page exponen- 
tial diophantine equation with a parameter A^ and 17,000 unknowns: 

Left-Hand-Side (AT) = Right-Hand-Side(A^). 

For each nonnegative value of the parameter A^, ask whether this equa- 
tion has a finite or an infinite number of nonnegative solutions. The 
answers escape the power of mathematical reason because they are 
completely random and accidental. 

This work is part of a new field that I call algorithmic information 
theory [2,3,4]. 

What does this have to with Jaffe and Quinn [1]? 

The result presented above is an example of how my information- 
theoretic approach to incompleteness makes incompleteness appear per- 
vasive and natural. This is because algorithmic information theory 
sometimes enables one to measure the information content of a set of 



2 The Limits of Mathematics 

axioms and of a theorem and to deduce that the theorem cannot be 
obtained from the axioms because it contains too much information. 

This suggests to me that sometimes to prove more one must assume 
more, in other words, that sometimes one must put more in to get 
more out. I therefore beheve that elementary number theory should be 
pursued somewhat more in the spirit of experimental science. Euclid 
declared that an axiom is a self-evident truth, but physicists are willing 
to assume new principles like the Schrodinger equation that are not self- 
evident because they are extremely useful. Perhaps number theorists, 
even when they are doing elementary number theory, should behave a 
little more like physicists do and should sometimes adopt new axioms. 
I have argued this at greater length in a lecture [6,8] that I gave at 
Cambridge University and at the University of New Mexico. 
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The Limits of Mathematics 



The Berry Paradox 



Lecture given Wednesday 27 October 1993 at a Physics - Computer 
Science Colloquium at the University of New Mexico. The lecture was 
videotaped; this is an edited transcript. It also incorporates remarks 
made at the Limits to Scientific Knowledge meeting held at the Santa 
Fe Institute 24-26 May 1994. 

In early 1974, I was visiting the Watson Research Center and I got 
the idea of calhng Godel on the phone. I picked up the phone and 
called and Godel answered the phone. I said, "Professor Godel, I'm 
fascinated by your incompleteness theorem. I have a new proof based 
on the Berry paradox that I'd like to tell you about." Godel said, "It 
doesn't matter which paradox you use." He had used a paradox called 
the liar paradox. I said, "Yes, but this suggests to me an information- 
theoretic view of incompleteness that I would very much like to tell you 
about and get your reaction." So Godel said, "Send me one of your 
papers. I'll take a look at it. Call me again in a few weeks and I'll see 
if I give you an appointment." 

I had had this idea in 1970, and it was 1974. So far I had only pub- 
lished brief abstracts. Fortunately I had just gotten the galley proofs 
of my first substantial paper on this subject. I put these in an envelope 
and mailed them to Godel. 

I called Godel again and he gave me an appointment! As you can 
imagine I was delighted. I figured out how to go to Princeton by train. 
The day arrived and it had snowed and there were a few inches of snow 
everywhere. This was certainly not going to stop me from visiting 
Godel! I was about to leave for the train and the phone rang and it 
was Godel's secretary. She said that Godel was very careful about his 
health and because of the snow he wasn't coming to the Institute that 
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day and therefore my appointment was canceled. 

And that's how I had two phone conversations with Godel but never 
met him. I never tried again. 

I'd hke to tell you what I would have told Godel. What I wanted to 
tell Godel is the difference between what you get when you study the 
limits of mathematics the way Godel did using the paradox of the liar, 
and what I get using the Berry paradox instead. 

What is the paradox of the liar? Well, the paradox of the liar is 

"This statement is false!" 

Why is this a paradox? What does "false" mean? Well, "false" means 
"does not correspond to reality." This statement says that it is false. 
If that doesn't correspond to reality, it must mean that the statement 
is true, right? On the other hand, if the statement is true it means 
that what it says corresponds to reality. But it says that it is false. 
Therefore the statement must be false. So whether you assume that 
it's true or false you then conclude the opposite! So this is the paradox 
of the liar. 

Now let's look at the Berry paradox. First of all, why "Berry"? 
Well it has nothing to do with fruit! This paradox was published at the 
beginning of this century by Bertrand Russell. Now there's a famous 
paradox which is called Russell's paradox and this is not it! This is 
another paradox that he published. I guess people felt that if you 
just said the Russell paradox and there were two of them it would be 
confusing. And Bertrand Russell when he published this paradox had 
a footnote saying that it was suggested to him by Mr G. G. Berry. So it 
ended up being called the Berry paradox even though it was published 
by Russell. 

Here is a version of the Berry paradox: 

"the first positive integer that cannot 
be specified in less than a billion words" . 

This is a phrase in English that specifies a particular positive integer. 
Which positive integer? Well, there are an infinity of positive integers, 
but there are only a finite number of words in English. Therefore, 
if you have a billion words, there's only going to be a finite number 
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of possibilities. But there's an infinite number of positive integers. 
Therefore most positive integers require more than a bilhon words, and 
let's just take the first one. But wait a second. By definition this integer 
is supposed to take a billion words to specify, but I just specified it using 
much less than a billion words! That's the Berry paradox. 

What does one do with these paradoxes? Let's take a look again at 
the liar paradox: 

"This statement is false!" 

The first thing that Godel does is to change it from "This statement is 
false" to "This statement is unprovable": 

"This statement is unprovable!" 

What do we mean by "unprovable"? 

In order to be able to show that mathematical reasoning has limits 
you've got to say very precisely what the axioms and methods of reason- 
ing are that you have in mind. In other words, you have to specify how 
mathematics is done with mathematical precision so that it becomes 
a clear-cut question. Hilbert put it this way: The rules should be so 
clear, that if somebody gives you what they claim is a proof, there is 
a mechanical procedure that will check whether the proof is correct or 
not, whether it obeys the rules or not. This proof-checking algorithm 
is the heart of this notion of a completely formal axiomatic system. 

So "This statement is unprovable" doesn't mean unprovable in a 
vague way. It means unprovable when you have in mind a specific 
formal axiomatic system FAS with its mechanical proof-checking algo- 
rithm. So there is a subscript: 

"This statement is unprovablei?^^!" 

And the particular formal axiomatic system that Godel was inter- 
ested in dealt with 1, 2, 3, 4, 5, and addition and multiplication, that 
was what it was about. Now what happens with "This statement is 
unprovable" ? Remember the liar paradox: 

"This statement is false!" 

But here 

"This statement is unprovablei?^^!" 
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the paradox disappears and we get a theorem. We get incompleteness, 
in fact. Why? 

Consider "This statement is unprovable". There are two possibili- 
ties: either it's provable or it's unprovable. 

If "This statement is unprovable" turns out to be unprovable within 
the formal axiomatic system, that means that the formal axiomatic 
system is incomplete. Because if "This statement is unprovable" is 
unprovable, then it's a true statement. Then there's something true 
that's unprovable which means that the system is incomplete. So that 
would be bad. 

What about the other possibility? What if 

"This statement is unprovable^^s!" 

is provable? That's even worse. Because if this statement is provable 

"This statement is unprovablei?^^!" 

and it says of itself that it's unprovable, then we're proving something 
that's false. 

So Godel's incompleteness result is that if you assume that only 
true theorems are provable, then this 

"This statement is unprovablep'^g!" 

is an example of a statement that is true but unprovable. 

But wait a second, how can a statement deny that it is provable? 
In what branch of mathematics does one encounter such statements? 
Godel cleverly converts this 

"This statement is unprovablei?^^!" 

into an arithmetical statement, a statement that only involves 1, 2, 3, 
4, 5, and addition and multiplication. How does he do this? 

The idea is called godel numbering. We all know that a string of 
characters can also be thought of as a number. Characters are either 
8 or 16 bits in binary. Therefore, a string of N characters is either 8N 
or 16N bits, and it is also the base-two notation for a large positive 
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integer. Thus every mathematical statement in this formal axiomatic 
system 

"This statement is unprovablej^yis, !" 

is also a number. And a proof, which is a sequence of steps, is also a 
long character string, and therefore is also a number. Then you can 
define this very funny numerical relationship between two numbers X 
and Y which is that X is the godel number of a proof of the statement 
whose godel number is Y. Thus 

"This statement is unprovablei?^^!" 

ends up looking like a very complicated numerical statement. 

There is another serious difficulty. How can this statement refer to 
itself? Well you can't directly put the godel number of this statement 
inside this statement, it's too big to fit! But you can do it indirectly. 
This is how Godel does it: The statement doesn't refer to itself directly. 
It says that if you perform a certain procedure to calculate a number, 
this is the godel number of a statement which cannot be proved. And it 
turns out that the number you calculate is precisely the godel number 
of the entire statement 

"This statement is unprovablei?^^!" 

That is how Godel proves his incompleteness theorem. 
What happens if you start with this 

"the first positive integer that cannot 
be specified in less than a billion words" 

instead? Everything has a rather different fiavor. Let's see why. 

The first problem we've got here is what does it mean to specify a 
number using words in English? — this is very vague. So instead let's 
use a computer. Pick a standard general-purpose computer, in other 
words, pick a universal Turing machine ( UTM) . Now the way you spec- 
ify a number is with a computer program. When you run this computer 
program on your UTM it prints out this number and halts. So a pro- 
gram is said to specify a number, a positive integer, if you start the 
program running on your standard UTM, and after a finite amount of 
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time it prints out one and only one great big positive integer and it 
says "I'm finished" and halts. 

Now it's not English text measured in words, it's computer programs 
measured in bits. This is what we get. It's 

"the first positive integer that cannot 
be specified [/TM by a computer program 
with less than a billion bits" . 

By the way the computer program must be self-contained. If it has any 
data, the data is included in the program as a constant. 

Next we have to do what Godel did when he changed "This state- 
ment is false" into "This statement is unprovable." So now it's 

"the first positive integer that can be proved^^s 
to have the property that it cannot 
be specified j/TM by a computer program 
with less than a billion bits" . 

And to make things clearer let's replace "a billion bits" by "A^ bits". 
So we get: 

"the first positive integer that can be provedi?^^ 
to have the property that it cannot 
be specified [/TM by a computer program 
with less than A^ bits" . 

The interesting fact is that there is a computer program 

log2 A^ + cfas 

bits long for calculating this number that supposedly cannot be calcu- 
lated by any program that is less than A^ bits long. And 

log2 A^ + Cfas 

is much much smaller than A^ for all sufficiently large A^! Thus for 
such A^ our FAS cannot enable us to exhibit any numbers that require 
programs more than A^ bits long. This is my information-theoretic 
incompleteness result that I wanted to discuss with Godel. 
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Why is there a program that is 

log2 A^ + cfas 

bits long for calculating 

"the first positive integer that can be provedK4s 
to have the property that it cannot 
be specified ;7TM by a computer program 
with less than N bits" ? 

Well here is how you do it. 

You start running through all possible proofs in the formal ax- 
iomatic system in size order. You apply the proof-checking algorithm 
to each proof. And after filtering out all the invalid proofs, you search 
for the first proof that a particular positive integer requires at least an 
A'^-bit program. 

The algorithm that I've just described is very slow but it is very 
simple. It's basically just the proof-checking algorithm, which is cpAs 
bits long, and the number A^, which is logg A^ bits long. So the total 
number of bits is, as was claimed, just 

log2 A^ + Cfas- 

That concludes the proof of my incompleteness result that I wanted to 
discuss with Godel. 

Over the years I've continued to do research on my information- 
theoretic approach to incompleteness. Here are the three most dramatic 
results that I've obtained: 

1) Call a program "elegant" if no smaller program produces the same 
output. You can't prove that a program is elegant. More pre- 
cisely, A^ bits of axioms are needed to prove that an A^-bit pro- 
gram is elegant. 

2) Consider the binary representation of the halting probability Q. 
Q is the probability that a program chosen at random halts. You 
can't prove what the bits of Q are. More precisely, A^ bits of 
axioms are needed to determine A^ bits of Q. 
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3) I have constructed a perverse algebraic equation 

PiK,X,Y,Z,...) = 0. 

Vary the parameter K and ask whether this equation has finitely 
or infinitely many whole-number solutions. In each case this turns 
out to be equivalent to determining individual bits of Q. There- 
fore N bits of axioms are needed to be able to settle A^ cases. 

These striking examples show that sometimes you have to put more 
into a set of axioms in order to get more out. (2) and (3) are extreme 
cases. They are accidental mathematical assertions that are true for 
no reason. In other words, the questions considered in (2) and (3) are 
irreducible; essentially the only way to prove them is to add them as 
new axioms. Thus in this extreme case you get out of a set of axioms 
only what you put in. 

How do I prove these incompleteness results (1), (2) and (3)? As 
before, the basic idea is the paradox of "the first positive integer that 
cannot be specified in less than a billion words." For (1) the connection 
with the Berry paradox is obvious. For (2) and (3) it was obvious to me 
only in the case where one is talking about determining the first A^ bits 
of Q. In the case where the A^ bits of Q are scattered about, my original 
proof of (2) and (3) (the one given in my Cambridge University Press 
monograph) is decidedly not along the lines of the Berry paradox. But a 
few years later I was happy to discover a new and more straight-forward 
proof of (2) and (3) that is along the lines of the Berry paradox! 

In addition to working on incompleteness, I have also devoted a 
great deal of thought to the central idea that can be extracted from my 
version of the Berry paradox, which is to define the program-size com- 
plexity of something to be the size in bits of the smallest program that 
calculates it. I have developed a general theory dealing with program- 
size complexity that I call algorithmic information theory (AIT). 

AIT is an elegant theory of complexity, perhaps the most developed 
of all such theories, but as von Neumann said, pure mathematics is easy 
compared to the real world! AIT provides the correct complexity con- 
cept for metamathematics, but not necessarily for other more practical 
fields. 
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Program-size complexity in AIT is analogous to entropy in statis- 
tical mechanics. Just as thermodynamics gives limits on heat engines, 
AIT gives limits on formal axiomatic systems. 

I have recently reformulated AIT. 

Up to now, the best version of AIT studied the size of programs in 
a computer programming language that was not actually usable. Now 
I obtain the correct program-size complexity measure from a powerful 
and easy to use programming language. This language is a version of 
LISP, and I have written an interpreter for it in C. A summary of this 
new work is available as IBM Research Report RC 19553 "The limits 
of mathematics," which I am expanding into a book. 

So this is what I would have liked to discuss with Godel, if I could 
speak with him now. Of course this is impossible! But thank you very 
much for giving me the opportunity to tell you about these ideas! 

Questions for Future Research 

• Find questions in algebra, topology and geometry that are equiv- 
alent to determining bits of Q. 

• What is an interesting or natural mathematical question? 

• How often is such a question independent of the usual axioms? (I 
suspect the answer is "Quite often!") 

• Show that a classical open question in number theory such as 
the Riemann hypothesis is independent of the usual axioms. (I 
suspect that this is often the case, but that it cannot be proven.) 

• Should we take incompleteness seriously or is it a red herring? (I 
believe that we should take incompleteness very seriously indeed.) 

• Is mathematics quasi-empirical? In other words, should mathe- 
matics be done more like physics is done? (I believe the answer 
to both questions is "Yes.") 
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Experimental mathematics 

Okay, let me say a little bit in the minutes I have left about what this 
all means. 

First of all, the connection with physics. There was a big controversy 
when quantum mechanics was developed, because quantum theory is 
nondeterministic. Einstein didn't like that. He said, "God doesn't play 
dice!" But as I'm sure you all know, with chaos and nonlinear dynamics 
we've now realized that even in classical physics we get randomness 
and unpredictability. My work is in the same spirit. It shows that pure 
mathematics, in fact even elementary number theory, the arithmetic 
of the natural numbers, 1, 2, 3, 4, 5, is in the same boat. We get 
randomness there too. So, as a newspaper headline would put it, God 
not only plays dice in quantum mechanics and in classical physics, but 
even in pure mathematics, even in elementary number theory. So if a 
new paradigm is emerging, randomness is at the heart of it. By the 
way, randomness is also at the heart of quantum field theory, as virtual 
particles and Feynman path integrals (sums over all histories) show 
very clearly. So my work fits in with a lot of work in physics, which is 
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why I often get invited to talk at physics meetings. 

However the really important question isn't physics, it's mathemat- 
ics. I've heard that Godel wrote a letter to his mother who stayed in 
Europe. You know, Godel and Einstein were friends at the Institute 
for Advanced Study. You'd see them walking down the street together. 
Apparently Godel wrote a letter to his mother saying that even though 
Einstein's work on physics had really had a tremendous impact on how 
people did physics, he was disappointed that his work had not had the 
same effect on mathematicians. It hadn't made a difference in how 
mathematicians actually carried on their everyday work. So I think 
that's the key question: How should you really do mathematics? 

I'm claiming I have a much stronger incompleteness result. If so 
maybe it'll be clearer whether mathematics should be done the ordinary 
way. What is the ordinary way of doing mathematics? In spite of the 
fact that everyone knows that any finite set of axioms is incomplete, how 
do mathematicians actually work? Well suppose you have a conjecture 
that you've been thinking about for a few weeks, and you believe it 
because you've tested a large number of cases on a computer. Maybe it's 
a conjecture about the primes and for two weeks you've tried to prove 
it. At the end of two weeks you don't say, well obviously the reason 
I haven't been able to show this is because of Godel's incompleteness 
theorem! Let us therefore add it as a new axiom! But if you took 
Godel's incompleteness theorem very seriously this might in fact be 
the way to proceed. Mathematicians will laugh but physicists actually 
behave this way. 

Look at the history of physics. You start with Newtonian physics. 
You cannot get Maxwell's equations from Newtonian physics. It's a 
new domain of experience — you need new postulates to deal with it. 
As for special relativity, well, special relativity is almost in Maxwell's 
equations. But Schrodinger's equation does not come from Newtonian 
physics and Maxwell's equations. It's a new domain of experience and 
again you need new axioms. So physicists are used to the idea that when 
you start experimenting at a smaller scale, or with new phenomena, you 
may need new principles to understand and explain what's going on. 

Now in spite of incompleteness mathematicians don't behave at all 
like physicists do. At a subconscious level they still assume that the 
small number of principles, of postulates and methods of inference, that 
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they learned early as mathematics students, are enough. In their hearts 
they believe that if you can't prove a result it's your own fault. That's 
probably a good attitude to take rather than to blame someone else, 
but let's look at a question like the Riemann hypothesis. A physicist 
would say that there is ample experimental evidence for the Riemann 
hypothesis and would go ahead and take it as a working assumption. 

What is the Riemann hypothesis? There are many unsolved ques- 
tions involving the distribution of the prime numbers that can be settled 
if you assume the Riemann hypothesis. Using computers people check 
these conjectures and they work beautifully. They're neat formulas but 
nobody can prove them. A lot of them follow from the Riemann hy- 
pothesis. To a physicist this would be enough: It's useful, it explains 
a lot of data. Of course a physicist then has to be prepared to say 
"Oh oh, I goofed!" because an experiment can subsequently contradict 
a theory. This happens very often. 

In particle physics you throw up theories all the time and most of 
them quickly die. But mathematicians don't like to have to backpedal. 
But if you play it safe, the problem is that you may be losing out, and 
I believe you are. 

I think it should be obvious where I'm leading. I believe that ele- 
mentary number theory and the rest of mathematics should be pursued 
more in the spirit of experimental science, and that you should be will- 
ing to adopt new principles. I believe that Euclid's statement that an 
axiom is a self-evident truth is a big mistake. The Schrodinger equation 
certainly isn't a self-evident truth! And the Riemann hypothesis isn't 
self-evident either, but it's very useful. 

So I believe that we mathematicians shouldn't ignore incomplete- 
ness. It's a safe thing to do but we're losing out on results that we 
could get. It would be as if physicists said, okay no Schrodinger equa- 
tion, no Maxwell's equations, we stick with Newton, everything must 
be deduced from Newton's laws. (Maxwell even tried it. He had a 
mechanical model of an electromagnetic field. Fortunately they don't 
teach that in college!) 

I proposed all this twenty years ago when I started getting these 
information-theoretic incompleteness results. But independently a new 
school on the philosophy of mathematics is emerging called the "quasi- 
empirical" school of thought regarding the foundations of mathematics. 
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There's a book of Tymoczko's called New Directions in the Philosophy 
of Mathematics (Birkhauser, Boston, 1986). It's a good collection of 
articles. Another place to look is Searching for Certainty by John Casti 
(Morrow, New York, 1990) which has a good chapter on mathematics. 
The last half of the chapter talks about this quasi-empirical view. 

By the way, Lakatos, who was one of the people involved in this 
new movement, happened to be at Cambridge at that time. He'd left 
Hungary. 

The main schools of mathematical philosophy at the beginning of 
this century were Russell and Whitehead's view that logic was the ba- 
sis for everything, the formalist school of Hilbert, and an "intuitionist" 
constructivist school of Brouwer. Some people think that Hilbert be- 
lieved that mathematics is a meaningless game played with marks of ink 
on paper. Not so! He just said that to be absolutely clear and precise 
what mathematics is all about, we have to specify the rules determining 
whether a proof is correct so precisely that they become mechanical. 
Nobody who thought that mathematics is meaningless would have been 
so energetic and done such important work and been such an inspiring 
leader. 

Originally most mathematicians backed Hilbert. Even after Godel 
and even more emphatically Turing showed that Hilbert 's dream didn't 
work, in practice mathematicians carried on as before, in Hilbert 's 
spirit. Brouwer 's constructivist attitude was mostly considered a nui- 
sance. As for Russell and Whitehead, they had a lot of problems getting 
all of mathematics from logic. If you get all of mathematics from set 
theory you discover that it's nice to define the whole numbers in terms 
of sets (von Neumann worked on this). But then it turns out that 
there's all kinds of problems with sets. You're not making the natu- 
ral numbers more solid by basing them on something which is more 
problematical. 

Now everything has gone topsy-turvy. It's gone topsy-turvy, not 
because of any philosophical argument, not because of Godel's results 
or Turing's results or my own incompleteness results. It's gone topsy- 
turvy for a very simple reason — the computer! 

The computer as you all know has changed the way we do every- 
thing. The computer has enormously and vastly increased mathemati- 
cal experience. It's so easy to do calculations, to test many cases, to run 
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experiments on the computer. The computer has so vastly increased 
mathematical experience, that in order to cope, people are forced to 
proceed in a more pragmatic fashion. Mathematicians are proceeding 
more pragmatically, more like experimental scientists do. This new ten- 
dency is often called "experimental mathematics." This phrase comes 
up a lot in the field of chaos, fractals and nonlinear dynamics. 

It's often the case that when doing experiments on the computer, 
numerical experiments with equations, you see that something happens, 
and you conjecture a result. Of course it's nice if you can prove it. 
Especially if the proof is short. I'm not sure that a thousand page 
proof helps too much. But if it's a short proof it's certainly better 
than not having a proof. And if you have several proofs from different 
viewpoints, that's very good. 

But sometimes you can't find a proof and you can't wait for someone 
else to find a proof, and you've got to carry on as best you can. So now 
mathematicians sometimes go ahead with working hypotheses on the 
basis of the results of computer experiments. Of course if it's physicists 
doing these computer experiments, then it's certainly okay; they've 
always relied heavily on experiments. But now even mathematicians 
sometimes operate in this manner. I believe that there's a new journal 
called the Journal of Experimental Mathematics. They should've put 
me on their editorial board, because I've been proposing this for twenty 
years based on my information-theoretic ideas. 

So in the end it wasn't Godel, it wasn't Turing, and it wasn't my 
results that are making mathematics go in an experimental mathemat- 
ics direction, in a quasi-empirical direction. The reason that mathe- 
maticians are changing their working habits is the computer. I think 
it's an excellent joke! (It's also funny that of the three old schools of 
mathematical philosophy, logicist, formalist, and intuitionist, the most 
neglected was Brouwer, who had a constructivist attitude years before 
the computer gave a tremendous impulse to constructivism.) 

Of course, the mere fact that everybody's doing something doesn't 
mean that they ought to be. The change in how people are behaving 
isn't because of Godel's theorem or Turing's theorems or my theorems, 
it's because of the computer. But I think that the sequence of work 
that I've outlined does provide some theoretical justification for what 
everybody's doing anyway without worrying about the theoretical jus- 
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tification. And I think that the question of how we should actually 
do mathematics requires at least another generation of work. That's 
basically what I wanted to say — thank you very much! 



A Version of Pure LISP 



Introduction 

In this chapter we present a "permissive" simphfied version of pure 
LISP designed especially for metamathematical applications. Aside 
from the rule that an S-expression must have balanced ()'s, the only 
way that an expression can fail to have a value is by looping forever. 
This is important because algorithms that simulate other algorithms 
chosen at random, must be able to run garbage safely. 

This version of LISP developed from one that I originally designed 
to use to teach LISP in the early 1970s. The language was reduced to its 
essence and made as easy to learn as possible, and was actually used in 
several university courses that I gave in Buenos Aires, Argentina. Like 
APL, this version of LISP is so concise that one can write it as fast 
as one thinks. This LISP is so simple that an interpreter for it can be 
coded in just six hundred lines of C code. The C code for this is given 
at the end of this book. 

How to read this chapter: This chapter can be quite difficult to 
understand, especially if one has never programmed in LISP before. 
The correct approach is to read it several times, and to try to work 
through all the examples in detail. Initially the material will seem 
completely incomprehensible, but all of a sudden the pieces will snap 
together into a coherent whole. On the other hand, if one has never 
experienced LISP before and wishes to master it thoroughly, one should 
code a LISP interpreter oneself instead of looking at the interpreter 
given at the end of this book; that is how the author learned LISP. 
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Definition of LISP 

LISP is an unusual programming language created around 1960 by John 
McCarthy. It and its descendants are frequently used in research on 
artificial intelligence. And it stands out for its simple design and for its 
precisely defined syntax and semantics. 

However LISP more closely resembles such fundamental subjects 
as set theory and logic than it does a programming language. As a 
result LISP is easy to learn with little previous knowledge. Contrari- 
wise, those who know other programming languages may have difficulty 
learning to think in the completely different fashion required by LISP. 

LISP is a functional programming language, not an imperative lan- 
guage like FORTRAN. In FORTRAN the question is "In order to do 
something what operations must be carried out, and in what order?" 
In LISP the question is "How can this function be defined?" The LISP 
formalism consists of a handful of primitive functions and certain rules 
for defining more complex functions from the initially given ones. In a 
LISP run, after defining functions one requests their values for specific 
arguments of interest. It is the LISP interpreter's task to deduce these 
values using the function's definitions. 

LISP functions are technically known as partial recursive functions. 
"Partial" because in some cases they may not have a value (this situa- 
tion is analogous to division by zero or an infinite loop). "Recursive" 
because functions re-occur in their own definitions. The following defi- 
nition of factorial n is the most familiar example of a recursive function: 
if n = 0, then its value is 1, else its value is n by factorial n — 1. From 
this definition one deduces that factorial 3 = (3 by factorial 2) = (3 by 
2 by factorial 1) = (3 by 2 by 1 by factorial 0) = (3 by 2 by 1 by 1) = 
6. 

A LISP function whose value is always true or false is called a predi- 
cate. By means of predicates the LISP formalism encompasses relations 
such as "x is less than y." 

Data and function definitions in LISP consist of S-expressions (S 
stands for "symbolic"). S-expressions are made up of characters called 
atoms that are grouped into lists by means of pairs of parentheses. The 
atoms are the printable characters in the ASCII character set, except 
for the blank, left parenthesis, right parenthesis, left bracket, and right 
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bracket. The simplest kind of S-expression is an atom all by itself. 
All other S-expressions are lists. A list consists of a left parenthesis 
followed by zero or more elements (which may be atoms or sublists) 
followed by a right parenthesis. Also, the empty list is considered 
to be an atom. 

Here are two examples of S-expressions. C is an atom. 

(d(ef)d((a))) 

is a list with four elements. The first and third elements are the atom 
d. The second element is a list whose elements are the atoms e and f , 
in that order. The fourth element is a list with a single element, which 
is a list with a single element, which is the atom a. 

The formal definition is as follows. The class of S-expressions is the 
union of the class of atoms and the class of lists. A list consists of a left 
parenthesis followed by zero or more S-expressions followed by a right 
parenthesis. There is one list that is also an atom, the empty list (). 
All other atoms are individual ASCII characters. 

In LISP the atom 1 stands for "true" and the atom stands for 
"false." Thus a LISP predicate is a function whose value is always or 
1. 

It is important to note that we do not identify and (). It is usual 
in LISP to identify falsehood and the empty list; both are usually called 
NIL. Here there is no single-character synonym for the empty list (); 
2 characters are required. 

The fundamental semantical concept in LISP is that of the value 
of an S-expression in a given environment. An environment consists 
of a so-called "association list" in which variables (atoms) and their 
values (S-expressions) alternate. If a variable appears several times, 
only its first value is significant. If a variable does not appear in the 
environment, then it itself is its value, so that it is in effect a literal 
constant, (xa x(a) x((a)) F(&(x) (/( .x)x(F(+x))))) is a typical 
environment. In this environment the value of x is a, the value of F 
is (&(x) (/( .x)x(F(+x)))), and any other atom, for example Q, has 
itself as value. 

Thus the value of an atomic S-expression is obtained by searching 
odd elements of the environment for that atom. What is the value of a 
non-atomic S-expression, that is, of a non-empty list? In this case the 
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value is defined recursively, in terms of the values of the elements of the 
S-expression in the same environment. The value of the first element 
of the S-expression is the function, and the function's arguments are 
the values of the remaining elements of the expression. Thus in LISP 
the notation (f xyz) is used for what in FORTRAN would be written 
f (x,y,z). Both denote the function f applied to the arguments xyz. 

There are two kinds of functions: primitive functions and defined 
functions. The ten primitive functions are the atoms . = + - * , 
' I ! and ?. A defined function is a three-element list (traditionally 
called a LAMBDA expression) of the form (&vb) , where v is a list of 
variables. By definition the result of applying a defined function to ar- 
guments is the value of the body of the function b in the environment 
resulting from appending a list of the form (variablel argumentl vari- 
able2 argument2. . . ) and the environment of the original S-expression, 
in that order. Appending an n-element list and an m-element list yields 
the (n + m)-element list whose elements are those of the first list fol- 
lowed by those of the second list. 

The primitive functions are now presented. In the examples of their 
use the empty environment is assumed. 

• Name Quote 

Symbol ' 

Arguments 1 

Explanation The result of applying this function is the uneval- 
uated argument expression. 

Examples ('(abc)) has value (abc) 
('(*xy)) has value (*xy) 

• Name Atom 

Symbol . 

Arguments 1 

Explanation The result of applying this function to an argu- 
ment is true or false depending on whether or not the argu- 
ment is an atom. 
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Examples ( . a) has value 1 
( . ( ' (abc) ) ) has value 

• Name Equal 

Symbol = 

Arguments 2 

Explanation The result of applying this function to two argu- 
ments is true or false depending on whether or not they are 
the same S-expression. 

Examples (=(' (abc)) ( ' (abc))) has value 1 
(=( ' (abc) ) ( ' (abx) ) ) has value 

• Name Head/First/CAR 

Symbol + 

Arguments 1 

Explanation The result of applying this function to an atom is 
the atom itself. The result of applying this function to a 
non-empty list is the first element of the list. 

Examples (+a) has value a 
(+ ( ' (abc) ) ) has value a 
(+('((ab)(cd)))) has value (ab) 
(+('(((a))))) has value ((a)) 

• Name Tail/Rest/CDR 

Symbol - 

Arguments 1 

Explanation The result of applying this function to an atom is 
the atom itself. The result of applying this function to a 
non-empty list is what remains if its first element is erased. 
Thus the tail of an {n + l)-element list is an n-element list. 

Examples (-a) has value a 

(-('(abc))) has value (be) 
(-('((ab)(cd)))) has value ((cd)) 
(-('(((a))))) has value () 
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• Name Join/CONS 

Symbol * 

Arguments 2 

Explanation If the second argument is not a list, then the result 
of applying this function is the first argument. If the second 
argument is an n-element list, then the result of applying 
this function is the [n + l)-element list whose head is the 
first argument and whose tail is the second argument. 

Examples (*ab) has value a 
(*a()) has value (a) 
(*a(' (bed))) has value (abed) 
(* ( ' (ab) ) ( ' (cd) ) ) has value ( (ab) cd) 
(* ( ' (ab) H' ( (cd) ) ) ) has value ( (ab) (cd) ) 

• Name Display 

Symbol , 

Arguments 1 

Explanation The result of applying this function is its argu- 
ment, in other words, this is an identity function. The side- 
effect is to display the argument. This function is used to 
display intermediate results. It is the only primitive function 
that has a side-effect. 

Examples Evaluation of (-(,(-(,(-(' (abc) ) ) ) ) ) displays 
(be) and (c) and yields value () 

• Name If-then-else 

Symbol / 

Arguments 3 

Explanation If the first argument is not false, then the result 
is the second argument. If the first argument is false, then 
the result is the third argument. The argument that is not 
selected is not evaluated. 
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Examples (/Ixy) has value x 

(/Oxy) has value y 

(/Xxy) has value x 

Evaluation of (/lx(,y)) does not have the side-effect of 
displaying y 

• Name Eval 

Symbol ! 

Arguments 1 

Explanation The expression that is the value of the argument is 
evaluated in an empty environment. This is the only primi- 
tive function that is a partial rather than a total function. 

Examples (!(,('(. x)))) diplays ( . x) and has value 1 
(!('(('(&(f)(f)))(n&()(f)))))) has no value. 

• Name Try 

Symbol ? 

Arguments 2 

Explanation The expression that is the value of the second ar- 
gument is evaluated in an empty environment. If the evalua- 
tion is completed within "time" given by the first argument, 
the value returned is a list whose sole element is the value 
of the value of the second argument. If the evaluation is 
not completed within "time" given by the first argument, 
the value returned is the atom ?. More precisely, the "time 
limit" is given by the number of elements of the first argu- 
ment, and is zero if the first argument is not a list. The 
"time limit" actually limits the depth of the call stack, more 
precisely, the maximum number of re-evaluations due to de- 
fined functions or ! or ? which have been started but have 
not yet been completed. The key property of ? is that it is a 
total function, i.e., is defined for all values of its arguments, 
and that ( !x) is defined if and only if (?tx) is not equal to 
? for all sufficiently large values of t. 
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Atom .=+-*, ' / \ ? k : 

Arguments 121121131223 

Figure 1: Atoms with Implicit Parentheses. 

Examples (?0('x)) has value (x) 

(?0('(('(&(x)x))a))) has value ? 
(?('(l))('((n&(x)x))a))) has value (a) 

The argument of ' and the unselected argument of / are exceptions 
to the rule that the evaluation of an S-expression that is a non-empty 
list requires the previous evaluation of all its elements. When evaluation 
of the elements of a list is required, this is always done one element at 
a time, from left to right. 

M-expressions (M stands for "meta" ) are S-expressions in which the 
parentheses grouping together primitive functions and their arguments 
are omitted as a convenience for the LISP programmer. See Figure 1. 
For these purposes, & ( "function/LAMBDA/define" ) is treated as if it 
were a primitive function with two arguments, and " : " ( "LET/is" ) is 
treated as if it were a primitive function with three arguments. ":" 
is another meta-notational abbreviation, but may be thought of as an 
additional primitive function. 

:vde denotes the value of e in an environment in which v 
evaluates to the current value of d, and : (fxyz)de denotes the 
value of e in an environment in which f evaluates to (&(xyz)d). 
More precisely, the M-expression :vde denotes the S-expression 
((' (&(v)e))d), and the M-expression : (fxyz)de denotes the S- 
expression ((' (&(f )e)) (' (&(xyz)d))), and similarly for functions 
with a different number of arguments. Within the scope of a func- 
tion definition done via ":", i.e., within the de portion of : (fxyz)de, 
the parentheses that associate the function f with its three arguments 
are omitted, just as if f were a primitive function, and similarly for 
functions f with a different number of arguments. 

Also, we shall often use unary arithmetic. To make this easier, the 
M-expression {ddd} denotes the list of ddd I's; the number of I's is 
given in decimal digits. E.g., {99} is a list of ninety-nine I's. 
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A " ("literally") is written before a self-contained portion of an 
M-expression to indicate that the convention regarding invisible paren- 
theses and the meaning of ":" and {} does not apply within it, i.e., 
that there follows an S-expression "as is" . 

Input to the LISP interpreter consists of a list of M-expressions. 
All blanks are ignored, and comments may be inserted anywhere by 
placing them between balanced ['s and ] 's, so that comments may 
include other comments. Anything remaining on the last line of an M- 
expression that is excess is ignored. Thus M-expressions can end with 
excess right parentheses to make sure that all lists are closed, but on 
the other hand two M-expressions cannot be given on the same line. 
Two kinds of M-expressions are read by the interpreter: expressions to 
be evaluated, and others that indicate the environment to be used for 
these evaluations. The initial environment is the empty list (). 

Each M-expression is transformed into the corresponding S-expres- 
sion and displayed: 

(1) If the S-expression is of the form (&xe) where x is an atom and 
e is an S-expression, then (xv) is concatenated with the current 
environment to obtain a new environment, where v is the value 
of e. Thus (&xe) is used to define the value of a variable x to be 
equal to the value of an S-expression e. 

(2) If the S-expression is of the form (&(fxyz)d) where fxyz is one 
or more atoms and d is an S-expression, then (f (&(xyz)d)) is 
concatenated with the current environment to obtain a new en- 
vironment. Thus (&(fxyz)d) is used to establish function defi- 
nitions, in this case the function f of the variables xyz. Within 
d and all the remaining interpreter input, the parentheses that 
associate the function f with its three arguments are omitted, 
just as if f were a primitive function, and similarly for functions 
f with a different number of arguments. 

(3) If the S-expression is not of the form (&...) then it is evaluated in 
the current environment and its value is displayed. The primitive 
function "," may cause the interpreter to display additional S- 
expressions before this value. 
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Examples 

Here are five elementary examples of expressions and their values. 

• The M-expression *a*b*c() denotes the S-expression 

(*a(*b(*c()))) 

whose value is the S-expression (abc). 

• The M-expression + ' (abcde) denotes the S-expression 

(+(-(-(-(' (abcde)))))) 

whose value is the S-expression d. 

• The M-expression *"+*"=*"-() denotes the S-expression 

(*+(*=(*-()))) 

whose value is the S-expression (+=-). 

• The M-expression 

('&(xyz)*z*y*x()abc) 
denotes the S-expression 

(('(&(xyz)(*z(*y(*x())))))abc) 

whose value is the S-expression (cba). 

• The M-expression 

: (Cxy)/.xy*+xC-xy C (abcdef) ' (ghijkl) 
denotes the S-expression 
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( 
( ' (&(C) (C( ' (abcdef ) ) ( ' (ghijkl) ) ) ) ) 
('(&(xy)(/(.x)y(*(+x)(C(-x)y))))) 
) 

whose value is the S-expression (abcdef ghijkl) . In this example 
C is the concatenation function. It is instructive to state the 
definition of concatenation, usually called APPEND, in words: 
"Let concatenation be a function of two variables x and y defined 
as follows: if x is an atom, then the value is y; otherwise join the 
head of x to the concatenation of the tail of x with y." 

Here are a number of important details about the way our LISP 
achieves its "permissiveness." Most important, extra arguments to 
functions are evaluated but ignored, and empty lists are supplied for 
missing arguments. E.g., parameters in a function definition which are 
not supplied with an argument expression when the function is applied 
will be bound to the empty list (). This works this way because when 
the interpreter runs off the end of a list of arguments, the list of ar- 
guments has been reduced to the empty argument list, and head and 
tail applied to this empty list will continue to give the empty list. Also 
if an atom is repeated in the parameter list of a function definition, 
the binding corresponding to the first occurrence will shadow the later 
occurrences of the same variable. In our LISP there are no erroneous 
expressions, only expressions that fail to have a value because the in- 
terpreter never finishes evaluating them: it goes into an infinite loop 
and never returns a value. 
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5 


quote 


1 arg 


'(abc) — > (abc) 


+ 


head 


1 arg 


+'(abc) — > a 
+a — > a 


" 


tail 


1 arg 


-'(abc) — > (be) 
-a — > a 


* 


join 


2 args 


*a'(bc) — > (abc) 
*ab — > a 




atom 


1 arg 


.a — > 1 
.'(a) -^ 


= 


equal 


2 args 


=aa — > 1 
=ab — > 


/ 


if 


3 args 


/Oab — > h 
/xab — > a 


& 


function 


2 args 


('&(xy)y ab) — > h 


■) 


display 


1 arg 


,x — > X and displays x 


I 


eval 


1 arg 


!e — ^ evaluate e 


? 


try 


3 args 


?teb — > evaluate e time t with bits b 

?teb^f ? ^,^P^,^^"^ 1 
, , . displays. . . 
V (value) / 


@ 


read bit 


args 


@ — > or 1 


% 


read exp 


args 


% — ^ any m- expression 


# 


bits for 


1 arg 


#x — > bit string for x 


^ 


append 


2 args 


-'(ab)'(cd) — > (abed) 


" 


show 


1 arg 


~x — i> X and may show x 




let 


3 args 


:xv e — > ('&(x)e v) 

:(fx)d e — > ('&(f)e '&(x)d) 


& 


define 


2 args 


&XV — > X is V 
&(fx)d — ^ fis&(x)d 


?) 


literally 


1 arg 


"+^ + 


{} 


unary 




{3} -^ (111) 




comment 




ignored] 





empty 









false 






1 


true 







How to Give Binary Data to 
LISP Expressions 



Here is a quick summary of the toy LISP presented in the previous 
chapter. Each LISP primitive function and variable is a single ASCII 
character. These primitive functions, all of which have a fixed num- 
ber of arguments, are now ' for QUOTE (1 argument), . for ATOM 
(1 argument), = for EQ (2 arguments), + for HEAD (1 argument), - 
for TAIL (1 argument), * for JOIN (2 arguments), & for FUNCTION 
and DEFINE (2 arguments), : for LET-BE-IN (3 arguments), / for 
IF-THEN-ELSE (3 arguments), , for DISPLAY (1 argument), ! for 
EVAL (1 argument), and ? for TRY (which had 2 arguments, but will 
soon have 3). The meta-notation " (LITERALLY) indicates that an 
S-expression with explicit parentheses follows, not what is usually the 
case in my toy LISP, an M-expression, in which parentheses are often 
implicit. Finally comments are in [] 's, the empty list is written (), 
TRUE and FALSE are 1 and 0, and in M-expressions the list of ddd 
I's is written {ddd}. 

The new idea is this. We define our standard self-delimiting univer- 
sal Turing machine as follows. Its program is in binary, and appears 
on a tape in the following form. First comes a toy LISP M-expression, 
written in ASCII with 7 bits per character. Note that this expression 
is self-delimiting. The TM reads in this LISP expression, and then 
evaluates it. As it does this, two new primitive functions @ and % with 
no arguments may be used to read more from the TM tape. Both of 
these functions explode if the tape is exhausted, killing the computa- 
tion. (§ reads a single bit from the tape, and % reads in an entire LISP 
M-expression, in 7-bit character chunks. 
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This is the only way that information on the TM tape may be 
accessed, which forces it to be used in a self-dehmiting fashion. This 
is because no algorithm can search for the end of the tape and then 
use the length of the tape as data in the computation. If an algorithm 
attempts to read a bit that is not on the tape, the algorithm aborts. 

How is information placed on the TM tape in the first place? Well, 
in the starting environment, the tape is empty and any attempt to 
read it will give an error message. To place information on the tape, 
a new argument is added to the primitive function ? for depth-limited 
evaluation. 

Consider the three arguments a, (3 and 7 of ?. The meaning of the 
first argument, the depth limit a, has been changed slightly. If a is a 
non-null atom, then there is no depth limit. If a is the empty list, this 
means zero depth limit (no function calls or re-evaluations). And an 
iV-element list a means depth limit A^. The second argument (3 oi? is 
as before the expression to be evaluated as long as the depth limit a 
is not exceeded. The new third argument 7 of ? is a list of bits to be 
used as the TM tape. 

The value v returned by the primitive function ? is also changed, 
z/ is a list. The first element of z/ is ! if the evaluation of (3 aborted 
because an attempt was made to read a non-existent bit from the TM 
tape. The first element of z/ is ? if evaluation of {3 aborted because the 
depth limit a was exceeded. ! and ? are the only possible error fiags, 
because my toy LISP is designed with maximally permissive semantics. 
If the computation (3 terminated normally instead of aborting, the first 
element of v will be a list with only one element, which is the result 
produced by the computation j3. That's the first element of the list v 
produced by the ? primitive function. 

The rest of the value z/ is a stack of all the arguments to the primitive 
function " , " that were encountered during the evaluation of 13. More 
precisely, if "," was called A^ times during the evaluation of j3, then v 
will be a list of A^ + 1 elements. The A^ arguments of " , " appear in v in 
inverse chronological order. Thus ? can not only be used to determine 
if a computation {3 reads too much tape or goes on too long (i.e., to 
greater depth than a), but ? can also be used to capture all the output 
that (3 displayed as it went along, whether the computation (3 aborted 
or not. 
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In summary, all that one has to do to simulate a self-delimiting 
universal Turing machine U{p) running on the binary program p is to 
write 

This is an M-expression with parentheses omitted from primitive func- 
tions (which can be done because all primitive functions have a fixed 
number of arguments). With all parentheses supplied, it becomes the 
S-expression 

(?0('(!(yj))p) 

This says that one is to read a complete LISP M-expression from the 
TM tape p and then evaluate it without any time limit and using what- 
ever is left on the tape p. 

Two more primitive functions have also been added, the 2-argument 
function ~ for APPEND, i.e., list concatenation, and the 1-argument 
function # for converting an M-expression into the list of the bits in its 
ASCII character string representation. These are used for construct- 
ing the bit strings that are then put on the TM tape using ?'s third 
argument 7. Note that the functions ", # and % could be programmed 
rather than included as built-in primitive functions, but it is extremely 
convenient and much much faster to provide them built in. 

Finally a new 1-argument identity function ~ for SHOW is provided 
for debugging; the show version of the interpreter prints this argument. 
Output produced by ~ is invisible to the "official" ? and "," output 
mechanism. ~ is needed because laP'j suppresses all output 9 produced 
within its depth-controlled evaluation of f3. Instead ? stacks all output 
6 from within j3 for inclusion in the final value u that ? returns, namely 
u = (atomic error flag or (value of /3) followed by the output 9). 

Each time the interpreter show's an expression, it also indicates its 
size in characters and bits like this: "characters/bits" . The size in bits 
is seven times the size in characters. This is intended for use in sizing 
M-expressions, which in order to be written as S-expressions must be 
encased in an extra pair of parentheses. Hence the size in characters 
does not include the outermost containing parentheses. 

To summarize, we've added the following five primitive functions 
to our LISP: # for BITS FOR (1 argument), for READ BIT (0 
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arguments), % for READ M-EXP (0 arguments), " for APPEND (2 
arguments), and ~ for SHOW (1 argument). And now ? has three 
arguments instead of two and returns a more comphcated value. 



Course Outline 



The course begins by explaining with examples my toy LISP. See 
test.l and example. 1. 

Then the theory of LISP program-size complexity is developed a 
little. The LISP program-size complexity Hl{x) of an S-expression x is 
defined to be the size in characters of the smallest self-contained LISP 
M-expression whose value is x. "Self-contained" means that we assume 
the initial empty environment with no function definitions, and that 
there is no binary data available. The LISP program-size complexity of 
a formal axiomatic system is the size in characters of the smallest self- 
contained LISP M-expression that displays the theorems of the formal 
axiomatic system (in any order, and perhaps with duplications) using 
the DISPLAY primitive function " , " . 

LISP program-size complexity is extremely simple and concrete. 

First of all, LISP program-size complexity is subadditive, because 
expressions are self-delimiting and can be concatenated, and also be- 
cause we are dealing with pure LISP and no side-effects get in the way. 
More precisely, consider the LISP M-expression *p*q(), where p is a 
minimum-size LISP M-expression for x, and g is a minimum-size LISP 
M-expression for y. The value of this M-expression is the pair {xy) 
consisting of x and y. This shows that 

HL{{xy))<HL{x) + HL{y)+A. 

And the probability VLl that a LISP M-expression "halts" or has a value 
is well-defined, also because programs are self-delimiting. 

Secondly, LISP complexity easily yields elegant incompleteness the- 
orems. It is easy to show that it is impossible to prove that a 
self-contained LISP M-expression is elegant, i.e., that no smaller M- 
expression has the same output. More precisely, a formal axiomatic 
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system of LISP complexity A^ cannot enable us to prove that a LISP 
M-expression that has more than A^ + 135 characters is elegant. See 
Igodel.l and lgodel2.1. And it is easy to show that it is impossi- 
ble to establish lower bounds on LISP complexity. More precisely, a 
formal axiomatic system of LISP complexity A^ cannot enable us to 
exhibit an S-expression with LISP complexity greater than A^ + 127. 
See IgodelS.l and lgodel4.1. 

But LISP programs have severe information-theoretic limitations 
because they do not encode information very efficiently in 7-bit ASCII 
characters subject to LISP syntax constraints. So next we give binary 
data to LISP programs and measure the size of these programs as (7 
times the number of characters in the LISP program) plus (the number 
of bits in the binary data). More precisely, we define a new complexity 
H = Hu measured in bits via minimum-size binary programs for a 
self-delimiting universal Turing machine U . I.e., H{- ■ ■) denotes the 
size in bits of the smallest program that makes our standard universal 
Turing machine U compute ■ ■ •. Binary programs pack information 
more densely than LISP M-expressions, but they must be kept self- 
delimiting. We define our standard self-delimiting universal Turing 
machine U{p) with binary program ("tape") p as 

?0My.p 

as was explained in the previous chapter. 
Next we show that 

H{x,y) < H{x) + H{y) + 56. 

This inequality states that the information needed to compute the pair 
{x, y) is bounded by the constant 56 plus the sum of the information 
needed to compute x and the information needed to compute y. Con- 
sider 

*!y.*!7o() 

This is an M-expression with parentheses omitted from primitive func- 
tions. The constant 56 is just the size of this LISP M-expression, which 
is exactly 8 characters = 56 bits. See univ . 1. Note that in standard 
LISP this would be something like 
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(CONS (EVAL (READ-EXPRESSION)) 
(CONS (EVAL (READ-EXPRESSION)) 
NIL)) 

which is much more than 8 characters long. 

Next let's look at a binary string x of \x\ bits. We show that 

H{x) < 2\x\ + 140 

and 

H{x) < \x\ +H{\x\)+Ul. 

As before, the programs for doing this are exhibited and run. See 
univ. 1. 

Next we show how to calculate the halting probability fl of our stan- 
dard self-delimiting universal Turing machine in the limit from below. 
The LISP program for doing this, omega. 1, is now remarkably clear 
and fast, and much better than the one given in my Cambridge Univer- 
sity Press monograph. The A^th lower bound on Q is (the number of 
A^-bit programs that halt on U within time A^) divided by 2^. Using a 
big (512 megabyte) version of our LISP interpreter, we calculate these 
lower bounds for A^ = to A^ = 22. See omega, r. Using this algorithm 
for computing Q in the limit from below, we show that if Qn denotes 
the first A^ bits of the fractional part of the base-two real number Q, 
then 

H{nN) > A^-1883. 

Again this is done with a program that can actually be run and whose 
size in bits is the constant 1883. See omega2.1. 

Next we turn to the self-delimiting program-size complexity H{X) 
for infinite r.e. sets X, which is not considered at all in my Cambridge 
University Press monograph. This is now defined to be the size in bits 
of the smallest LISP M-expression ^ that displays the members of the 
r.e. set X using the LISP primitive ",". "," is an identity function with 
the side-effect of displaying the value of its argument. Note that this 
LISP M-expression ^ is allowed to read additional bits or M-expressions 
from the UTM f/'s tape using the primitive functions @ and % if ^ so 
desires. But of course C, is charged for this; this adds to .^'s program 



44 The Limits of Mathematics 

size. In this context it doesn't matter whether C, halts or not or what 
its value, if any, is. 

It was in order to deal with such unending expressions ^ that the 
LISP primitive function TRY for time-limited evaluation ?a(3'~f now 
captures all output from "," within its second argument (3. 

To illustrate these new concepts, we show that 

H{X n r) < H{X) + H{Y) + 1799 

and 

H{X UY)< H{X) + H{Y) + 1799. 

for infinite r.e. sets X and Y. As before, we run examples. See setsO . 1 
through sets4.1. 

Now consider a formal axiomatic system A of complexity N, i.e., 
with a set of theorems T4 that considered as an r.e. set as above has 
self-delimiting program-size complexity if (T4) = A^. We show that 
A has the following limitations. First of all, we show directly that A 
cannot enable us to exhibit a specific S-expression s with self-delimiting 
complexity H{s) greater than N + 735. See godel . 1 and godel2 . 1. 

Secondly, using the H^fljy) > N — 1883 inequality established in 
omega2.1, we show that A cannot enable us to determine more than 
A^ + 2933 bits of the binary representation of the halting probability 
Q, even if these bits are scattered and we leave gaps. (See godelS . 1 
through godel5.1.) In my Cambridge University Press monograph, 
this took a hundred pages to show, and involved the systematic devel- 
opment of a general theory using measure-theoretic arguments. Fol- 
lowing "Information-theoretic incompleteness," Applied Mathematics 
and Computation 52 (1992), pp. 83-101, the proof is now a straight- 
forward Berry-paradox-like program-size argument. Moreover we are 
using a deeper definition of H{A) = H{Ta) via infinite self-delimiting 
computations. 

And last but not least, the philosophical implications of all this 
should be discussed, especially the extent to which it tends to jus- 
tify experimental mathematics. This would be along the lines of the 
discussion in my talk transcript "Randomness in arithmetic and the 
decline and fall of reductionism in pure mathematics," Bulletin of the 
European Association for Theoretical Computer Science, No. 50 (June 
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1993), pp. 314-328, later published as "Randomness and complexity in 
pure mathematics," International Journal of Bifurcation and Chaos 4 
(1994), pp. 3-15. 

This concludes our "hand-on" course on the information-theoretic 
limits of mathematics. 
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Software User Guide 



All the software for this course is written in a toy version of LISP. * . 1 
files are toy LISP code, and *.r files are interpreter output. Three C 
programs, lisp.c, show.c, and big.c are provided; they are slightly 
different versions of the LISP interpreter. In these instructions we 
assume that this software is being run in the AIX environment. 

To run the standard version lisp of the interpreter, first compile 
lisp.c. This is done using the command cc -0 -olisp lisp.c. The 
resulting interpreter is about 128 megabytes big. If this is too large, 
reduce the #def ine SIZE before compiling it. 

There are three different ways to use this interpreter: To use the 
interpreter lisp interactively, that is, with input and output on the 
screen, enter 

lisp 



^) 



To run a LISP program X . 1 with output on the screen, enter 

lisp <X.l 

To run a LISP program X . 1 with output in a file rather than on the 
screen, enter 

lisp <X.l >X.r 

Similarly, the show and big (512 megabyte) versions of the inter- 
preter are obtained by compiling show.c and big.c, respectively, and 
they are used in the same way as the standard version lisp is used. 
The show version of the interpreter is the only one that shows and sizes 
the arguments of SHOW ~. 
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test.l 



[ LISP test run ] 

' (abc) 

+' (abc) 

-' (abc) 

*' (ab)' (cd) 

. 'a 

. ' (abc) 

='(ab)'(ab) 

=' (ab)' (ac) 

-,-,-,-,-,-,' (abcdef) 

/O'x'y 

/I'x'y 

! , Vl'x'y 

(*"&*()*, Vl'x'yO) 

('&(xy)y 'a 'b) 

: X 'a : y 'b *x*y() 

[ first atom ] 

: (Fx)/. ,xx F+x F'((((a)b)c)d) 

[ concatenation ] 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

?'0' 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

'O 

?' iiy 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

'O 

?' (W 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

'O 
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?'(111)' 

: (Cxy) /.,xy *+xC-xy C'(ab)Hcd) 

'O 

?' (1111)' 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

'() 

[ d: x goes to (xx) ] 

& (dx) *,x*x() 

[ e really doubles length of string each time ] 

& (ex) *,xx 

ddddddddO 

eeeeeeeeO 



test.r 



lisp.c 

LISP Interpreter Run 

[ LISP test run ] 
' (abc) 

expression ('(abc)) 

value (abc) 

+'(abc) 

expression (+('(abc))) 

value a 

-'(abc) 

expression (-('(abc))) 

value (be) 

*' (ab)' (cd) 

expression (*( ' (ab) ) ( ' (cd) ) ) 

value ((ab)cd) 



expression (.('a)) 
value 1 
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. > (abc) 

expression (.('(abc))) 

value 

=' (ab)' (ab) 

expression (=( ' (ab)) ( ' (ab))) 

value 1 

='(ab)'(ac) 

expression (=( ' (ab) ) ( ' (ac) )) 

value 

-,-,-,-,-,-,' (abcdef) 

expression (-(,(-(,(-(,(-(,(-(,(-(,(' (abcdef )))))))))))))) 

display (abcdef) 

display (bcdef) 

display (cdef) 

display (def) 

display (ef) 

display (f) 

value 

/O'x'y 

expression (/0('x)('y)) 

value y 

/I'x'y 

expression (/l('x)('y)) 

value X 

! , Vl'x'y 
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expression (!(,(' (/1( 'x) ( 'y) ))) ) 
display (/l('x)('y)) 

value X 

(*"&*()*, Vl'x'yO) 

expression ((*&(*()(*(,(' (/1( 'x) ( 'y)))) ())))) 
display (/l('x)('y)) 
value X 

('&(xy)y 'a 'b) 

expression (( ' (&(xy)y)) ( 'a) ( 'b)) 
value b 

: X 'a : y 'b *x*y() 

expression ((' (&(x) ((' (&(y) (*x(*y ()))))( 'b)))) ( 'a)) 
value (ab) 

[ first atom ] 

: (Fx)/. ,xx F+x F'((((a)b)c)d) 



expression 


(('(&(F)(F('((((a)b)c)d)))))('(&(x)(/(.(,x))x(F(+x 




)))))) 


display 


((((a)b)c)d) 


display 


(((a)b)c) 


display 


((a)b) 


display 


(a) 


display 


a 


value 


a 



[ concatenation ] 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

expression (( ' (&(C) (C( ' (ab) ) ( ' (cd))))) ( ' (&(xy) (/( . (,x))y(*(+x 

)(C(-x)y)))))) 
display (ab) 
display (b) 
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display () 
value (abed) 

?'0' 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

'() 

expression (?('())('((' (&(C) (C( ' (ab)) (' (cd))))) (' (&(xy) (/(. (, 

x))y(*(+x)(C(-x)y)))))))('())) 
value (?) 

?'(!)' 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

'() 

expression (?( ' (1)) ( ' (( ' (&(C) (C( ' (ab)) ( ' (cd))))) (' (&(xy) (/( . ( 

,x))y(*(+x)(C(-x)y)))))))(H))) 
value (?) 

?' (11)' 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

'() 

expression (?(' (11) )('(('(& (C) (C( ' (ab) ) ( ' (cd) ))))(' (&(xy) (/ ( . 

(,x))y(*(+x)(C(-x)y)))))))('())) 
value (?(ab)) 

?' (Ill)' 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

'() 

expression (?(' (Ill) )('(('(& (C) (C ( ' (ab) ) ( ' (cd) ))))('(& (xy) (/ ( 

.(,x))y(*(+x)(C(-x)y)))))))('())) 
value (?(b)(ab)) 

?' (1111)' 

: (Cxy) /.,xy *+xC-xy C'(ab)'(cd) 

'() 
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expression (?(' (1111) )('((' (&(C) (C( ' (ab) )( ' (cd) ))))('(& (xy) (/ 

(.(,x))y(*(+x)(C(-x)y) )))))) CO)) 
value (((abcd))()(b)(ab)) 



[ d: X goes to (xx) ] 
& (dx) *,x*x() 



d: 



(&(x)(*(,x)(*x()))) 



[ e really doubles length of string each time ] 
& (ex) *,xx 



e: 



(&(x)(*(,x)x)) 



ddddddddO 




expression (d( 


d(d(d(d(d(d(d())))))))) 


display () 




display (() 




display ((( 




display ((( 




display ((( 


(()())(()()))((()())(()())))(((()())(()()))((() 






display ( ( ( 












display ( ( ( 




















display ((( 
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value 



eeeeeeeeO 



express 
display 
display 
display 
display 
display 
display 

display 



ion 



e(e(e(e(e(e(e(e())))))))) 



(())()) 

)(())())((())())(())()) 

))(())())((())())(())())(((())())(())())( 

))()) 

())(())())((())())(())())(((())())(())()) 

())())((((())())(())())((())())(())())((( 



test.r 
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display 



value 



End of LISP Run 



Elapsed time is seconds. 
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example. 1 



[[[(Fx) = flatten x by removing all interior parentheses]]] 
[Define F of x as follows: if x is empty then return empty, if 

X is an atom then join x to the empty list, otherwise split 

X into its head and tail, flatten each, and append the results.] 
& (Fx) /=x()() /.x*x() "F+xF-x 
F,"F [use F to flatten itself] 
[[[(Gx) = size of X in unary]]] 
[Let G of X be [if x is empty, then unary two, if x is an atom, 

then unary one, otherwise split x into its head and tail, 

size each, and add the results] in . . .] 
: (Gx) /=x()'{2} /.x'{l> ~G+xG-x 
[Let G of X be [. . .] in:] 
G,"G [apply G to itself] 
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example. r 

lisp.c 

LISP Interpreter Run 

[[[(Fx) = flatten x by removing all interior parentheses]]] 
[Define F of x as follows: if x is empty then return empty, if 
X is an atom then join x to the empty list, otherwise split 
X into its head and tail, flatten each, and append the results.] 
& (Fx) /=x()() /.x*x() "F+xF-x 

F: (&(x)(/(=x())()(/(.x)(*x())(-(F(+x))(F(-x)))))) 

F,"F [use F to flatten itself] 

expression (F(,F)) 

display (&(x)(/(=x())()(/(.x)(*x())(-(F(+x))(F(-x)))))) 

value (&x/=x/.x*x~F+xF-x) 

[[[(Gx) = size of X in unary]]] 

[Let G of X be [if x is empty, then unary two, if x is an atom, 

then unary one, otherwise split x into its head and tail, 

size each, and add the results] in . . .] 
: (Gx) /=x()'{2} /.x'{l> ~G+xG-x 
[Let G of X be [. . .] in:] 
G,"G [apply G to itself] 

expression (( ' (&(G) (G( ,G) ) ) ) ( ' (&(x) (/(=x()) (' (11)) (/( .x) (' (1) 

)(-(G(+x))(G(-x)))))))) 
display (&(x) (/(=x()) (' (ID) (/(.x) (' (D) (-(G(+x)) (G(-x)))) 
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)) 
value (1111111111111111111111111111111111111111111111111 

111) 

End of LISP Run 

Elapsed time is seconds. 



Igodel.l 



[[[ Show that a formal system of lisp complexity H_L (FAS) = N 
cannot enable us to exhibit an elegant M-expression of 
size greater than N + 135. 

An elegant lisp M-expression is one with the property that no 
smaller M-expression has the same output. One may consider 
the output of an M-expression to be either its value or what 
it displays. The proof below works in either case. 
Setting: formal axiomatic system is never-ending lisp M-expression 
that displays elegant M-expressions . 

]]] 

[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, and therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

[m-expression : ] 

>"(*a*b*c()) 

[convert m-exp to s-exp] 

++?0'l#"'(*a*h*cO) 

[convert m-exp to s-exp and run it] 

! ,++?0'l#"'(*a*h*cO) 

[display m-exp, convert to s-exp and run it] 

! ,++?0'y„#,"'(*a*b*c()) 

!++?0 '%#"'"( [begin literally] 

[ I = |x| = size of s-expression x in characters ] 
:(|x) /=x()'{2} /.x'iiy -|+x|-x 
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[ < = unary number x is less than unary number y ] 
[ X and y are lists of I's ] 
: (<xy) /.yO /.xl <-x-y 

[ E = examine list x for m-exp that is more than n characters in size. ] 
[ If not found returns false/0. ] 
: (Exn) /.xO /<n — |+x +x E-xn 

[ Here we are given the formal axiomatic system FAS. ] 

:f '"("?) [[Replace "? here by m-exp for FAS. IFASI = I"?! = 2.]] 

[ n = the number of characters in this program including the FAS. ] 
:n ~~ — If '{135} [Show that this m-exp knows its own size.] 
[ n = 135 + IFASI ] 

[ L = loop running the formal axiomatic system ] 

:(Lt) 

:v ?t'!%#f [Run the formal system for t time steps.] 

: s E-vn [Did it output an elegant m-exp larger than this program?] 

/s !++?0'°/o#s [If found elegant m-exp bigger than this program, 

run it so that its output is our output (contradiction!)] 
/.+v L*lt [If not, keep looping] 
"? [or halt if formal system halted.] 

L() [Start loop running with t = 0.] 

) [end literally] 



Igodel.r 

show.c 

LISP Interpreter Run 

[[[ Show that a formal system of lisp complexity H_L (FAS) = N 
cannot enable us to exhibit an elegant M-expression of 
size greater than N + 135. 

An elegant lisp M-expression is one with the property that no 
smaller M-expression has the same output. One may consider 
the output of an M-expression to be either its value or what 
it displays. The proof below works in either case. 
Setting: formal axiomatic system is never-ending lisp M-expression 
that displays elegant M-expressions . 

]]] 

[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, and therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

[m-expression : ] 
' " (*a*b*c()) 

expression ( ' (*a*b*c() ) ) 
value (*a*b*c()) 

[convert m-exp to s-exp] 
++?0'y„#"'(*a*b*c()) 
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expression (+(+(?0( '(%))(#(' (*a*b*c())) ) ))) 
value (*a(*b(*c()))) 

[convert m-exp to s-exp and run it] 
! ,++?0'l#"'i*a*h*cO) 

expression (!(,(+(+ (?0 ( ' (%) ) (#( ' (*a*b*c () ) ))))))) 
display (*a(*b(*c() ) ) ) 
value (abc) 

[display m-exp, convert to s-exp and run it] 
! ,++?0"/,# , '" (*a*h*cO) 

expression (!(, (+(+(?0( '(%))(#(,(' (*a*b*c()))) )) )))) 

display (*a*b*c()) 

display (*a(*b(*c() ) ) ) 

value (abc) 



!++?0 '%#"'"( [begin literally] 

[ I = |x| = size of s-expression x in characters ] 
:(|x) /=x()'{2} /.x'iiy -|+x|-x 

[ < = unary number x is less than unary number y ] 
[ X and y are lists of I's ] 
: (<xy) /.yO /.xl <-x-y 

[ E = examine list x for m-exp that is more than n characters in size. ] 
[ If not found returns false/0. ] 
: (Exn) /.xO /<n — |+x +x E-xn 

[ Here we are given the formal axiomatic system FAS. ] 

:f '"("?) [[Replace "? here by m-exp for FAS. |FAS| = |"?| = 2.]] 

[ n = the number of characters in this program including the FAS. ] 
:n ~~ — If '{135} [Show that this m-exp knows its own size.] 
[ n = 135 + IFASI ] 



Igodel.r 
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[ L = loop running the formal axiomatic system ] 

:(Lt) 

[Run the formal system for t time steps.] 

[Did it output an elegant m-exp larger than this program?] 
[If found elegant m-exp bigger than this program, 
run it so that its output is our output (contradiction!)] 
[If not, keep looping] 
[or halt if formal system halted.] 
[Start loop running with t = 0.] 



: V 


?t ' ! %# 


:f 


: s 


E-vn 




/s 


!++?0' 


%#s 


/.+v L*lt 




"? 














) 



[end literally] 



expression ( ! (+(+(?0( ' (%)) (#(~( ' ( : ( |x)/=x() '{2>/.x'{l>~ l+x| -x 
: (<xy) / . yO/ . xK-x-y : (Exn) / . xO/<n~ | +x+xE-xn : f ' " ( "? 
) :n~-~|f '{135>: (Lt) :v?t' !%#f : sE-vn/s !++?0'%#s/.+v 
L*lt"?L())))))))) 

show (: (|x)/=x() '{2>/.x'{l>~l+x|-x: (<xy)/.yO/.xl<-x-y: ( 
Exn)/.xO/<n— I +x+xE-xn:f '"("?) :n~"~ |f '{135>: (Lt) : 
v?t ' ! y„#f : sE-vn/s ! ++?0 ' %#s/ . +vL*lt "?L() ) 

size 137/959 

show (1111111111111111111111111111111111111111111111111 
11111111111111111111111111111111111111111111111111 
11111111111111111111111111111111111111) 

size 137/959 

value ? 

End of LISP Run 



Elapsed time is seconds. 
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[[[ Show that a formal system of lisp complexity H_L (FAS) = N 
cannot enable us to exhibit an elegant M-expression of 
size greater than N + 135. 

An elegant lisp M-expression is one with the property that no 
smaller M-expression has the same output. One may consider 
the output of an M-expression to be either its value or what 
it displays. The proof below works in either case. 
Setting: formal axiomatic system is never-ending lisp M-expression 
that displays elegant M-expressions . 

]]] 

[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, and therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

[m-expression : ] 

>"(*a*b*c()) 

[convert m-exp to s-exp] 

++?0'l#"'(*a*h*cO) 

[convert m-exp to s-exp and run it] 

! ,++?0'l#"'(*a*h*cO) 

[display m-exp, convert to s-exp and run it] 

! ,++?0'y„#,"'(*a*b*c()) 

!++?0 '%#"'"( [begin literally] 

[ I = |x| = size of s-expression x in characters ] 
:(|x) /=x()'{2} /.x'iiy -|+x|-x 
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[ < = unary number x is less than unary number y ] 

[ X and y are lists of I's ] 

: (<xy) /.yl /.xl <-x-y [[FORCE VALUE "TRUE" FDR TEST]] 

[ E = examine list x for m-exp that is more than n characters in size. ] 
[ If not found returns false/0. ] 
: (Exn) /.xO /<n — |+x +x E-xn 

[ Here we are given the formal axiomatic system FAS. ] 
:f '"( ,'"(*a*b*c()) ) 

[[FAS = {The m-exp *a*b*c() is elegant}. |FAS| = 13.]] 

[ n = the number of characters in this program including the FAS. ] 
:n ~~ — If '{135} [Show that this m-exp knows its own size.] 
[ n = 135 + IFASI ] 

[ L = loop running the formal axiomatic system ] 

:(Lt) 

:v ?t'!7o#f [Run the formal system for t time steps.] 

: s E-vn [Did it output an elegant m-exp larger than this program?] 

/s !++?0'7o#s [If found elegant m-exp bigger than this program, 

run it so that its output is our output (contradiction!)] 
/.+v L*lt [If not, keep looping] 
"? [or halt if formal system halted.] 

L() [Start loop running with t = 0.] 

) [end literally] 



lgodel2.r 

show.c 

LISP Interpreter Run 

[[[ Show that a formal system of lisp complexity H_L (FAS) = N 
cannot enable us to exhibit an elegant M-expression of 
size greater than N + 135. 

An elegant lisp M-expression is one with the property that no 
smaller M-expression has the same output. One may consider 
the output of an M-expression to be either its value or what 
it displays. The proof below works in either case. 
Setting: formal axiomatic system is never-ending lisp M-expression 
that displays elegant M-expressions . 

]]] 

[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, and therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

[m-expression : ] 
' " (*a*b*c()) 

expression ( ' (*a*b*c() ) ) 
value (*a*b*c()) 

[convert m-exp to s-exp] 
++?0'y„#"'(*a*b*c()) 
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expression (+(+(?0( '(%))(#(' (*a*b*c())) ) ))) 
value (*a(*b(*c()))) 

[convert m-exp to s-exp and run it] 
! ,++?0'l#"'i*a*h*cO) 

expression (!(,(+(+ (?0 ( ' (%) ) (#( ' (*a*b*c () ) ))))))) 
display (*a(*b(*c() ) ) ) 
value (abc) 

[display m-exp, convert to s-exp and run it] 
! ,++?0"/,# , '" (*a*h*cO) 

expression (!(, (+(+(?0( '(%))(#(,(' (*a*b*c()))) )) )))) 

display (*a*b*c()) 

display (*a(*b(*c() ) ) ) 

value (abc) 



!++?0 '%#"'"( [begin literally] 

[ I = |x| = size of s-expression x in characters ] 
:(|x) /=x()'{2} /.x'iiy -|+x|-x 

[ < = unary number x is less than unary number y ] 

[ X and y are lists of I's ] 

: (<xy) /.yl /.xl <-x-y [[FORCE VALUE "TRUE" FOR TEST]] 

[ E = examine list x for m-exp that is more than n characters in size. ] 
[ If not found returns false/0. ] 
: (Exn) /.xO /<n — |+x +x E-xn 

[ Here we are given the formal axiomatic system FAS. ] 
:f '"( ,'"(*a*b*c()) ) 

[[FAS = {The m-exp *a*b*c() is elegant}. |FAS| = 13.]] 

[ n = the number of characters in this program including the FAS. ] 
:n ~~ — If '{135} [Show that this m-exp knows its own size.] 
[ n = 135 + IFASI ] 



lgodel2.r 
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[ L = loop running the formal axiomatic system ] 



[Run the formal system for t time steps.] 

[Did it output an elegant m-exp larger than this program?] 
[If found elegant m-exp bigger than this program, 
run it so that its output is our output (contradiction!)] 
[If not, keep looping] 
[or halt if formal system halted.] 
[Start loop running with t = 0.] 



: (.Lt. 
: V 


) 
?t ' ! %#f 


:s 


E-vn 


/s 


!++?0'7,#s 


/.+v L*lt 


"? 




L() 





) [end literally] 

expression ( ! (+(+(?0( ' (%) ) (#(~( ' ( : ( |x)/=x() '{2>/.x'{l>~ l+x| -x 
: (<xy) / . yl/ . xK-x-y : (Exn) / . xO/<n~ | +x+xE-xn : f ' " ( , ' 
"(*a*b*c())) :n~-~|f '{135}:(Lt) :v?t' !7,#f :sE-vn/s ! + 
+?0 ' %#s/ . +vL* It " ?L ( ) ) ) ) ) ) ) ) ) 

show (: (|x)/=x() '{2>/.x'{l>~l+x|-x: (<xy)/.yl/.xl<-x-y: ( 
Exn) / . xO/<n— | +x+xE-xn : f '" ( , '" (*a*b*c () ) ) : n~ -— | f ' 
{135}: (Lt) :v?t' !y,#f : sE-vn/s!++?0'yo#s/.+vL*lt"?L()) 

size 148/1036 

show (1111111111111111111111111111111111111111111111111 
11111111111111111111111111111111111111111111111111 
1111111111111111111111111111111111111111111111111) 

size 148/1036 

value (abc) 

End of LISP Run 



Elapsed time is seconds. 
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lgodel3.1 



[[[ Show that a formal system of lisp complexity H_L (FAS) = N 

cannot enable us to exhibit an S-expression with lisp complexity 

greater than N + 127. 

Setting: formal axiomatic system is never-ending lisp expression 

that displays pairs (s-expression x, unary number n) 

with H_L (x) >= n. 

]]] 

[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, and therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

!++?0'yo#~"'( [begin literally] 

[ I = |x| = size in characters of s-expression x. ] 
:(|x) /=x()'{2} /.x'iiy -|+x|-x 

[ < = unary number x is less than unary number y ] 
[ X and y are lists of I's ] 
: (<xy) /.yO /.xl <-x-y 

[ E = examine list x for first s in pair (s,m) with H_L (s) >= m > n. ] 
[ If not found returns false/0. ] 
: (Exn) /.xO /<n+-+x ++x E-xn 

[ Here we are given the formal axiomatic system FAS. ] 

:f '"("?) [[Replace "? here by m-exp for FAS. IFASI = |"?| = 2.]] 
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[ n = number of characters in this program including the FAS . ] 
:n ~~ — If '{127} [Show that this m-exp knows its own size.] 
[ n = 127 + IFASI ] 

[ L = loop running the formal axiomatic system ] 
:(Lt) 

:v ?t'!%#f [Run the formal system for t time steps.] 
:s E-vn [Have we found an s-exp more complex than this program?] 
/s s [If found s-exp more complex than this program, 
return it as our value (contradiction!)] 
[This m-exp 's value is an s-exp of complexity > 127 + |FAS|. 
But this m-exp 's size is 127 + I FAS I ! Impossible!] 
/.+v L*lt [If not, keep looping] 
"? [or halt if formal system halted.] 

L() [Start loop running with t = 0.] 

) [end literally] 



IgodelS.r 

show.c 

LISP Interpreter Run 

[[[ Show that a formal system of lisp complexity H_L (FAS) = N 

cannot enable us to exhibit an S-expression with lisp complexity 

greater than N + 127. 

Setting: formal axiomatic system is never-ending lisp expression 

that displays pairs (s-expression x, unary number n) 

with H_L (x) >= n. 

]]] 

[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, and therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

!++?0 '%#"'"( [begin literally] 

[ I = |x| = size in characters of s-expression x. ] 
:(|x) /=x()'{2} /.x'iiy -|+x|-x 

[ < = unary number x is less than unary number y ] 
[ X and y are lists of I's ] 
: (<xy) /.yO /.xl <-x-y 

[ E = examine list x for first s in pair (s,m) with H_L (s) >= m > n. ] 
[ If not found returns false/0. ] 
: (Exn) / . xO /<n+-+x ++x E-xn 
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[ Here we are given the formal axiomatic system FAS. ] 

:f '"("?) [[Replace "? here by m-exp for FAS. IFASI = |"?| = 2.]] 

[ n = number of characters in this program including the FAS . ] 
:n ~~ — If '{127} [Show that this m-exp knows its own size.] 
[ n = 127 + IFASI ] 

[ L = loop running the formal axiomatic system ] 
:(Lt) 

:v ?t'!°/o#f [Run the formal system for t time steps.] 
:s E-vn [Have we found an s-exp more complex than this program?] 
/s s [If found s-exp more complex than this program, 
return it as our value (contradiction!)] 
[This m-exp 's value is an s-exp of complexity > 127 + |FAS|. 
But this m-exp 's size is 127 + |FAS|! Impossible!] 
/.+v L*lt [If not, keep looping] 
"? [or halt if formal system halted.] 

L() [Start loop running with t = 0.] 

) [end literally] 

expression ( ! (+(+(?0( ' (%) ) (#(~( ' ( : (|x)/=x() '{2>/.x'{l}- l+xj-x 

: (<xy) / . yO/ . xK-x-y : (Exn) / . xO/<n+-+x++xE-xn : f ' " ( "? 

) :n~-~|f '{127}: (Lt) :v?t' !y„#f : sE-vn/ss/.+vL*lt"?L( 

))))))))) 
show (: (|x)/=x() '{2>/.x'{l>-|+x|-x: (<xy)/.yO/.xl<-x-y : ( 

Exn) /.xO/<n+-+x++xE-xn:f '"("?) m""-- |f '{127}: (Lt) : 

v?t ' ! y,#f : sE-vn/ss/ . +vL*lt "?L() ) 
size 129/903 
show (1111111111111111111111111111111111111111111111111 

11111111111111111111111111111111111111111111111111 

111111111111111111111111111111) 
size 129/903 
value ? 

End of LISP Run 

Elapsed time is seconds. 
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[[[ Show that a formal system of lisp complexity H_L (FAS) = N 

cannot enable us to exhibit an S-expression with lisp complexity 

greater than N + 127. 

Setting: formal axiomatic system is never-ending lisp expression 

that displays pairs (s-expression x, unary number n) 

with H_L (x) >= n. 

]]] 

[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, and therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

!++?0'yo#~"'( [begin literally] 

[ I = |x| = size in characters of s-expression x. ] 
:(|x) /=x()'{2} /.x'iiy -|+x|-x 

[ < = unary number x is less than unary number y ] 

[ X and y are lists of I's ] 

: (<xy) /.yl /.xl <-x-y [[FORCE VALUE "TRUE" FOR TEST]] 

[ E = examine list x for first s in pair (s,m) with H_L (s) >= m > n. ] 
[ If not found returns false/0. ] 
: (Exn) /.xO /<n+-+x ++x E-xn 

[ Here we are given the formal axiomatic system FAS. ] 

:f '"( ,'((xy)(lll)) ) [[FAS = {"H((xy)) >= 3"}. |FAS| = 13.]] 
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[ n = number of characters in this program including the FAS . ] 
:n ~~ — If '{127} [Show that this m-exp knows its own size.] 
[ n = 127 + IFASI ] 

[ L = loop running the formal axiomatic system ] 
:(Lt) 

:v ?t'!%#f [Run the formal system for t time steps.] 
:s E-vn [Have we found an s-exp more complex than this program?] 
/s s [If found s-exp more complex than this program, 
return it as our value (contradiction!)] 
[This m-exp 's value is an s-exp of complexity > 127 + |FAS|. 
But this m-exp 's size is 127 + I FAS I ! Impossible!] 
/.+v L*lt [If not, keep looping] 
"? [or halt if formal system halted.] 

L() [Start loop running with t = 0.] 

) [end literally] 



lgodel4.r 

show.c 

LISP Interpreter Run 

[[[ Show that a formal system of lisp complexity H_L (FAS) = N 

cannot enable us to exhibit an S-expression with lisp complexity 

greater than N + 127. 

Setting: formal axiomatic system is never-ending lisp expression 

that displays pairs (s-expression x, unary number n) 

with H_L (x) >= n. 

]]] 

[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, and therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

!++?0 '%#"'"( [begin literally] 

[ I = |x| = size in characters of s-expression x. ] 
:(|x) /=x()'{2} /.x'iiy -|+x|-x 

[ < = unary number x is less than unary number y ] 

[ X and y are lists of I's ] 

: (<xy) /.yl /.xl <-x-y [[FORCE VALUE "TRUE" FOR TEST]] 

[ E = examine list x for first s in pair (s,m) with H_L (s) >= m > n. ] 
[ If not found returns false/0. ] 
: (Exn) / . xO /<n+-+x ++x E-xn 
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[ Here we are given the formal axiomatic system FAS. ] 

:f '"( ,'((xy)(lll)) ) [[FAS = {"H((xy)) >= 3"}. IFASI = 13.]] 

[ n = number of characters in this program including the FAS . ] 
:n ~~ — If '{127} [Show that this m-exp knows its own size.] 
[ n = 127 + IFASI ] 

[ L = loop running the formal axiomatic system ] 
:(Lt) 

:v ?t'!°/o#f [Run the formal system for t time steps.] 
:s E-vn [Have we found an s-exp more complex than this program?] 
/s s [If found s-exp more complex than this program, 
return it as our value (contradiction!)] 
[This m-exp 's value is an s-exp of complexity > 127 + |FAS|. 
But this m-exp 's size is 127 + I FAS I ! Impossible!] 
/.+v L*lt [If not, keep looping] 
"? [or halt if formal system halted.] 

L() [Start loop running with t = 0.] 

) [end literally] 

expression ( ! (+(+(?0( ' (%) ) (#(~( ' ( : (|x)/=x() '{2>/.x'{l}- l+xj-x 
: (<xy) / . yl/ . xK-x-y : (Exn) / . xO/<n+-+x++xE-xn : f ' " ( , ' 
((xy)(lll))) :n~-~|f '{127}:(Lt) :v?t' !%#f :sE-vn/ss/ 
.+vL*lt"?L())))))))) 

show (: (|x)/=x() '{2>/.x'{l>-|+x|-x: (<xy)/.yl/.xl<-x-y : ( 
Exn) / . xO/<n+-+x++xE-xn : f '" ( , ' ( (xy) ( 111) ) ) : n~ "~ | f ' 
{127}: (Lt) :v?t' !y.#f :sE-vn/ss/.+vL*lt"?L()) 

size 140/980 

show (1111111111111111111111111111111111111111111111111 
11111111111111111111111111111111111111111111111111 
11111111111111111111111111111111111111111) 

size 140/980 

value (xy) 

End of LISP Run 

Elapsed time is seconds. 
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[[[ 

First steps with my new construction for 
a self -delimiting universal Turing machine. 
We show that 

H((xy)) <= H(x) + H(y) + 56. 
Consider a bit string x of length |x| . 
We also show that 

H(x) <= 2|x| + 140 
and that 

H(x) <= |x| + H(|x|) + 441. 
]]] 

?0 

' : (f ) :x@ :y@ /=xy *xf () f 

'(0011001101) 

[ This is 140 bits long: ] 

~"'( :(f) :x@ :y@ /=xy *xf () f ) 
[ Here are the 140 bits: ] 
#'"( :(f) :x@ :y@ /=xy *xf () f ) 

[ Here is the self -delimiting universal Turing machine! ] 
[ (with slightly funny handling of out-of-tape condition) ] 
& (Up) ++?0' !%p 
[Show that H(x) <= 2|x| + 140] 
U 

'■ #'"( :(f) :x@ :y@ /=xy *xf () f ) 
'(0011001101) 

u 

" #'"( :(f) :x@ :y@ /=xy *xf () f ) 
'(0011001100) 
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u 

- #-'"( *!%*!%() ) [The length of this bit string is the] 

[constant c = 56 in H(x,y) <= H(x)+H(y)+c.] 
" #'"( :(f) :x@ :y@ /=xy *xf () f ) 
" '(0011001101) 

" #'"( :(f) :x@ :y@ /=xy *xf () f ) 
'(1100110001) 
& (Dk) /=0+k *lD-k /.-k () *0-k [D = decrement reverse binary] 
,D,D,D,D,'(001) 
U 

" #~' [Show that H(x) <= |x| + H(|x|) + 441.] 

" ( [begin literally] 

(Re) /.e() "R-e*+e() [R = reverse ] 

(Dk) /=0+k *lD-k /.-k () *0-k [D = decrement] 
(Lk) /.k *@LDk [L = loop ] 

LR!% 
) [end literally] 

#'"( '(1000) ) [ lisp expression that evaluates to binary 8, ] 
' (0000 0001) [ so 8 bits of data follows the header ] 



univ.r 

show.c 

LISP Interpreter Run 

[[[ 

First steps with my new construction for 
a self -delimiting universal Turing machine. 
We show that 

H((xy)) <= H(x) + H(y) + 56. 
Consider a bit string x of length |x| . 
We also show that 

H(x) <= 2|x| + 140 
and that 

H(x) <= |x| + H(|x|) + 441. 
]]] 

?0 

' : (f ) :x@ :y@ /=xy *xf () f 

'(0011001101) 

expression (?0( '((' (&(f) (f )))('(&()((' (&(x) ((' (&(y) (/(=xy) (*x 

(f))())))(@))))(@))))))(H0011001101))) 
value (((0101))) 

[ This is 140 bits long: ] 
~"'( :(f) :x@ :y@ /=xy *xf () f ) 

expression (~( ' ( : (f ) :x@:y@/=xy*xf ()f ))) 
show (: (f) :x@:y@/=xy*xf Of) 
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size 20/140 

value (: (f) :x@:y@/=xy*xf Of) 

[ Here are the 140 bits: ] 

#'"( :(f) :x@ :y@ /=xy *xf () f ) 

expression (#('(: (f) :x@:y@/=xy*xf ()f ))) 

value (0111010010100011001100101001011101011110001000000 
01110101111001100000001011110111101111100011110010 
10101011110001100110010100001010011100110) 

[ Here is the self -delimiting universal Turing machine! ] 
[ (with slightly funny handling of out-of-tape condition) ] 
& (Up) ++?0' !7,p 

U: (&(p)(+(+(?0('(!(%)))p)))) 

[Show that H(x) <= 2|x| + 140] 
U 
" #'"( :(f) :x@ :y@ /=xy *xf () f ) 
'(0011001101) 

expression (U(-(#(' (: (f) :x@:y@/=xy*xf()f )))(' (0011001101)))) 
value (0101) 

U 
~ #'"( :(f) :x@ :y@ /=xy *xf () f ) 
'(0011001100) 

expression (U(-(#(' (: (f) :x(§:y(§/=xy*xf ()f) ))(' (0011001100)))) 
value ! 

U 
- #-'"( *!%*!%() ) [The length of this bit string is the] 

[constant c = 56 in H(x,y) <= H(x)+H(y)+c.] 
" #'"( :(f) :x@ :y@ /=xy *xf () f ) 
" '(0011001101) 

' #'"( :(f) :x@ :y@ /=xy *xf () f ) 
'(1100110001) 
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expression (U(-(#(~( '(*!%*!%()))))('■(#('(: (f) :x@:y@/=xy*xf ()f 
)))("(' (0011001101)) (-(#('(:(f):x@:y@/=xy*xf Of))) 
('(1100110001))))))) 

show (*!y,*!y,()) 

size 8/56 

value ((0101) (1010)) 

& (Dk) /=0+k *lD-k /.-k () *0-k [D = decrement reverse binary] 
D: (&(k)(/(=0(+k))(*l(D(-k)))(/(.(-k))()(*0(-k))))) 

,D,D,D,D, ' (001) 



expression 


(,(D(,(D(,(D(,(D(,('(001))))))))))) 


display 


(001) 


display 


(11) 


display 


(01) 


display 


(1) 


display 





value 






u 

' #~' [Show that H(x) <= |x| + H(|x|) + 441.] 
" ( [begin literally] 

(Re) /.e() "R-e*+e() [R = reverse ] 

(Dk) /=0+k *lD-k /.-k () *0-k [D = decrement] 
(Lk) /.k *@LDk [L = loop ] 

LRiy, 
) [end literally] 

#'"( '(1000) ) [ lisp expression that evaluates to binary 8, ] 
' (0000 0001) [ so 8 bits of data follows the header ] 

expression (U(-(#(~(' (: (Re)/.e() -R-e*+e() : (Dk)/=0+k*lD-k/.-k( 
) *0-k : (Lk) / . k *@LDkLR !%))))("(#('('( 1000) ) ) ) ( ' (00 
000001))))) 

show (: (Re)/.e()"R-e*+e() : (Dk)/=0+k*lD-k/.-k()*0-k: (Lk) 
/.k()*@LDkLR!y,) 

size 63/441 
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value 



(00000001) 



End of LISP Run 



Elapsed time is seconds. 



omega.l 



[[[[ Omega in the limit from below! ]]]] 

[[[ 
(Wn) = the nth lower bound on the halting probability 
Omega = (the number of n-bit programs that halt when 
run on U for time n) divided by (2 to the power n) . 

]]] 

[S = sum of three bits] 
&(Sxyz) =x=yz 

[C = carry of three bits] 
&(Cxyz) /x/ylz/yzO 

[A = addition of reversed binary x and y] 

[c = carryin] 

&(Axyc) /.x /.y /c'(l)() A'(0)yc 

/.y Ax'(0)c 

* S+x+yc A-x-yC+x+yc 

[Pad X to length k on right and reverse] 
&(Rxk) /.x/.k() *ORx-k " R-x-k *+x() 

&(Vkp) /.k /.+?n'!%p '(1) 
A V-k*Op V-k*lp 

&(Wn) *0*". R Vn() n 

[These lower bounds are zero until we 
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get a complete 7-bit character:] 

WHO} 

W'{1} 

W'{2} 

W'{3} 

W'{4} 

W'{5} 

W'{6} 

[Programs are now one 7-bit ASCII character.] 

W'{7} 

W'{8} 

W'{9} 

W'{10} 

W'{11} 

W'{12} 

W'{13} 

[Programs are now two 7-bit ASCII characters.] 

W'{14} 

W'{15} 

W'{16} 

W'{17} 

W'{18} 

WH19} 

W'{20} 

[Programs are now three 7-bit ASCII characters.] 

W'{21} 

W'{22} 

[At this point we run out of memory, even with 

512 megabytes of lisp storage. The solution 

is either more storage, or a much more 

complicated lisp interpreter with garbage 

collection. We will never reach the first 

program that loops forever. The smallest 

example I know is : (f )f f which is 

6 characters = 42 bits.] 
[ 

W'{23} 
] 



omega.r 



big.c 

LISP Interpreter Run 

[[[[ Omega in the limit from below! ]]]] 

[[[ 
(Wn) = the nth lower bound on the halting probability 
Omega = (the number of n-bit programs that halt when 
run on U for time n) divided by (2 to the power n) . 

]]] 

[S = sum of three bits] 
&(Sxyz) =x=yz 

S: (&(xyz)(=x(=yz))) 



[C = carry of three bits] 
&(Cxyz) /x/ylz/yzO 

C: (&(xyz)(/x(/ylz)(/yzO))) 



[A = addition of reversed binary x and y] 

[c = carryin] 

&(Axyc) /.x /.y /c'(l)() A'(0)yc 

/.y Ax'(0)c 

* S+x+yc A-x-yC+x+yc 
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(&(xyc) (/( .x) (/( .y) (/cC (D) 0) (AC (0))yc)) (/(.y) ( 
AxC (0))c) (*(S(+x) (+y)c) (A(-x) (-y) (C(+x) (+y)c))))) 
) 



[Pad X to length k on right and reverse] 
&(Rxk) /.x/.k() *ORx-k " R-x-k *+x() 

R: (&(xk) (/(.x) (/(.k) (*0(Rx(-k)))) (-(R(-x) (-k)) (*(+ 

x) ())))) 



:(Vkp) /.k /.+?n'!y,p '(1) 
A V-k*Op V-k*lp 

': (&(kp)(/(.k)(/(.(+(?n('(!(y„)))p)))()('(l)))(A(V(-k 

)(*Op))(V(-k)(*lp))0))) 



&(Wn) *0*". R Vn() n 

W: (&(n)(*0(*.(R(Vn())n)))) 



[These lower bounds are zero until we 
get a complete 7-bit character:] 
W'{0> 

expression (W('())) 
value (0.) 

W'{1} 

expression (W('(l))) 
value (0.0) 

W'{2} 
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expression (W('(ll))) 

value (0.00) 

WH3} 

expression (W('(lll))) 

value (0.000) 

expression (W('(llll))) 

value (0.0000) 

WH5} 

expression (WC (11111))) 

value (0.00000) 

W'{6} 

expression (W( ' (111111))) 

value (0.000000) 

[Programs are now one 7-bit ASCII character.] 
W'{7} 

expression (W( ' (1111111))) 

value (0.1001001) 

WH8} 

expression (W( ' (11111111) ) ) 

value (0.10010100) 

WH9} 

expression (W( ' (111111111))) 

value (0.100101000) 
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W'{10} 

expression (W( ' (1111111111) )) 
value (0.1001010000) 

W'{11} 

expression (W( ' (11111111111))) 
value (0.10010100000) 

W'{12} 

expression (W( ' (111111111111))) 
value (0.100101000000) 

W'{13} 

expression (W( ' (1111111111111) ) ) 
value (0.1001010000000) 

[Programs are now two 7-bit ASCII characters.] 
WH14} 

expression (W( ' (11111111111111) ) ) 
value (0.10100000111100) 

W'{15} 

expression (W( ' (111111111111111))) 
value (0.101000010001000) 

WH16} 

expression (W( ' (1111111111111111) )) 
value (0.1010000100010000) 

W'{17} 

expression (W( ' (11111111111111111))) 



omega.r 
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value 



(0.10100001000100000) 



WH18} 

expression (W( ' (111111111111111111))) 

value (0.101000010001000000) 

WK19} 

expression (W( ' (1111111111111111111))) 

value (0.1010000100010000000) 

WH20} 

expression (W( ' (11111111111111111111))) 

value (0.10100001000100000000) 

[Programs are now three 7-bit ASCII characters.] 
W'{21} 

expression (W( ' (111111111111111111111))) 

value (0.101001001011001101110) 

W'{22} 

expression (W( ' (1111111111111111111111) ) ) 

value (0.1010010011000111110100) 



[At this point we run out of memory, even with 
512 megabytes of lisp storage. The solution 
is either more storage, or a much more 
complicated lisp interpreter with garbage 
collection. We will never reach the first 
program that loops forever. The smallest 
example I know is : (f )f f which is 
6 characters = 42 bits.] 

[ 

W'{23} 

] 
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End of LISP Run 

Elapsed time is 5170 seconds. 



omega2.1 



[[[ 

Show that H(Oniega_n) > n - 1883. 
Omega_n is the first n bits of Omega. 
]]] 

[First test new stuff] 

[<= for fractional binary numbers, i.e., is 0.x <= O.y ?] 
& (<xy) /.x 1 

/.y <x'(0) 

/=+x+y <-x-y 

+y 

<' (000) '(000) 
<' (000) '(001) 
<' (001)' (000) 
<' (001)' (001) 
<' (110)' (110) 
<' (110)' (111) 
<' (lll)'(llO) 

<' (111)' (111) 

<' ()' (000) 
<'()' (001) 
<'(000)'() 

<' (001)' 

[Now run it all!] 

++?0' !% [ Universal binary computer U ] 



97 



98 The Limits of Mathematics 

[ Put together program for U :] 

"#"' [ Show prefix prepended to program for first n bits of Omega ] 

[ so that we can see how many bits long the prepended prefix is.] 

" ( [ begin literally ] 

[S = sum of three bits] 
: (Sxyz) =x=yz 
[C = carry of three bits] 
: (Cxyz) /x/ylz/yzO 

[A = addition of reversed binary x and y] 
[c = carryin] 

:(Axyc) /.x /.y /c'(l)() A'(0)yc 
/.y Ax'(0)c 
* S+x+yc A-x-yC+x+yc 
[Pad X to length k on right and reverse] 
: (Rxk) /.x/.k() *ORx-k " R-x-k *+x() 
[W = lower bound on Omega obtained by 
running all n-bit programs for time n] 
:(Vkp) /.k /.+?n'!7,p '(1) 

A V-k*Op V-k*lp 
: (Wn) [[[*0*".]]]R Vn() n [No "0." in front] 

[<= for fractional binary numbers, i.e., is 0.x <= O.y ?] 
:(<xy) /.x 1 

/.y <x'(0) 

/=+x+y <-x-y 

+y 

[List of all output of all n-bit programs p within time k.] 

[ k is implicit argument.] 

: (Bnp) /.n :v?k'!y.p /.+v() +v 

[ [ " B-n*Op B-n*lp [wrong order] ]] 

~ B-n"p'(0) B-n-p'(l) [right order] [[ [ELIMINATE DUPLICATES???] ] ] 

:w !% [Read and execute from remainder of tape 

a program to compute an n-bit 
initial piece of Omega. 
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IMPORTANT: If Omega = .???1000000. . . 
here must take Omega = .???0111111 . . . 
I.e., w = first n bits of the latter 
binary representation.] 
: (Lk) [Main Loop] 

:x Wk [Compute the kth lower bound on Omega] 
/<wx Bw() [Are the first n bits OK? I.e, is w <= x ? ] 
[If so, form the list of all output of n-bit 
programs within time k, output it, and halt. 
This is bigger than anything of complexity 
less than or equal to n!] 
[I.e., this total output Bw() will be bigger than each individual output, 
and therefore must come from a program with more than n bits. 
Hence the size in bits of this prefix (= 1883) + the size in 
bits of any program for the first n bits of Omega must be 
greater than n. Hence H(Omega_n) > n - 1883! 
] 

L*lk [If first n bits not OK, bump k and loop.] 

L() [Start main loop running with k initially zero.] 

) [end literally] 

#' [Above prefix in binary is prepended to a 

program for U to compute the first n bits of Omega.] 
"( [begin literally] 

[[[ Program to compute the first n bits of Omega: ]]] 

[Cheat: test with the 7 bit approximation to Omega!] 

[(Could also test this with 14 bit and 21 bit Omega approximations)] 

[(Hence n = 7, and final output will have complexity greater than 7.)] 

' (1001001) 

) [end literally] 
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omega2.r 

show.c 

LISP Interpreter Run 



[[[ 

Show that H(Omega_n) > n - 1883. 

Omega_n is the first n bits of Omega. 
]]] 

[First test new stuff] 

[<= for fractional binary numbers, i.e., is 0.x <= O.y ?] 
& (<xy) /.x 1 

/.y <x'(0) 

/=+x+y <-x-y 

+y 

<: (&(xy) (/(.x)l(/(.y) «x(' (0)) ) (/(=(+x) (+y)) «(-x) (- 

y))(+y))))) 

<' (000)' (000) 

expression (<( ' (000) ) ( ' (000) ) ) 
value 1 

<' (000)' (001) 

expression (<( ' (000)) ( ' (001))) 
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value 1 

<H001)'(000) 

expression (<( ' (001)) ( ' (000) ) ) 
value 

<' (001)' (001) 

expression (<( ' (001) ) ( ' (001) ) ) 
value 1 

<'(110)' (110) 

expression (<( ' (110)) ( ' (110))) 
value 1 

<'(110)'(111) 

expression (<( ' (110)) ( ' (111))) 
value 1 

<> (III)' (110) 

expression (<( ' (111)) ( ' (110))) 
value 

<) (iii)>(iii) 

expression (<( ' (111) ) ( ' (111) ) ) 
value 1 

<'()'(000) 

expression (<('())(' (000))) 
value 1 

<' O' (001) 
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expression (<('())(' (001) ) ) 

value 1 

<' (000)' 

expression (<( ' (000) ) ( ' () )) 

value 1 

<'(001)'() 

expression (<( ' (001)) ( ' ())) 

value 



[Now run it all!] 

++70' !% [ Universal binary computer U ] 
[ Put together program for U :] 

"#"' [ Show prefix prepended to program for first n bits of Omega ] 

[ so that we can see how many bits long the prepended prefix is.] 

" ( [ begin literally ] 

[S = sum of three bits] 
: (Sxyz) =x=yz 
[C = carry of three bits] 
: (Cxyz) /x/ylz/yzO 

[A = addition of reversed binary x and y] 
[c = carryin] 

:(Axyc) /.x /.y /c'(l)() A'(0)yc 
/.y Ax'(0)c 
* S+x+yc A-x-yC+x+yc 
[Pad X to length k on right and reverse] 
: (Rxk) /.x/.k() *ORx-k " R-x-k *+x() 
[W = lower bound on Omega obtained by 
running all n-bit programs for time n] 
:(Vkp) /.k /.+?n'!%p '(1) 
A V-k*Op V-k*lp 
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: (Wn) [[[*0*".]]]R Vn() n [No "0." in front] 

[<= for fractional binary numbers, i.e., is 0.x <= O.y ?] 
:(<xy) /.x 1 

/.y <x'(0) 

/=+x+y <-x-y 

+y 

[List of all output of all n-bit programs p within time k.] 

[ k is implicit argument.] 

: (Bnp) /.n :v?k'!y.p /.+v() +v 

[ [ " B-n*Op B-n*lp [wrong order] ]] 

'- B-n"p'(0) B-n-p'(l) [right order] [[ [ELIMINATE DUPLICATES???] ] ] 

:w !% [Read and execute from remainder of tape 

a program to compute an n-bit 
initial piece of Omega. 
IMPORTANT: If Omega = .???1000000. . . 
here must take Omega = .???0111111... 
I.e., w = first n bits of the latter 
binary representation.] 
: (Lk) [Main Loop] 

:x Wk [Compute the kth lower bound on Omega] 
/<wx Bw() [Are the first n bits OK? I.e, is w <= x ? ] 
[If so, form the list of all output of n-bit 
programs within time k, output it, and halt. 
This is bigger than anything of complexity 
less than or equal to n!] 
[I.e., this total output Bw() will be bigger than each individual output, 
and therefore must come from a program with more than n bits. 
Hence the size in bits of this prefix (= 1883) + the size in 
bits of any program for the first n bits of Omega must be 
greater than n. Hence H(Omega_n) > n - 1883! 
] 

L*lk [If first n bits not OK, bump k and loop.] 

L() [Start main loop running with k initially zero.] 

) [end literally] 



oinega2.r 
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( 



[Above prefix in binary is prepended to a 
program for U to compute the first n bits of Omega.] 
[begin literally] 



[[[ Program to compute the first n bits of Omega: ]]] 

[Cheat: test with the 7 bit approximation to Omega!] 

[(Could also test this with 14 bit and 21 bit Omega approximations)] 

[(Hence n = 7, and final output will have complexity greater than 7.)] 

'(1001001) 



) 



[end literally] 



expression (+(+(?0( '(!(%)))(-(#(-(' (: (Sxyz)=x=yz: (Cxyz)/x/ylz 
/yzO: (Axyc)/.x/.y/c' (1) ()A' (0)yc/.yAx' (0)c*S+x+ycA 
-x-yC+x+yc: (Rxk)/.x/.k()*ORx-k~R-x-k*+x() : (Vkp)/.k 
/.+?n' !7,p()'(l)AV-k*OpV-k*lpO: (Wn)RVn()n: (<xy)/.xl 
/.y<x' (0)/=+x+y<-x-y+y: (Bnp)/.n:v?k' lyop/.+vO+v'B- 
n~p'(0)B-n-p'(l) :w!7,: (Lk) :xWk/<wxBw()L*lkL() )))) (# 
('('(1001001)))))))) 

show ( : (Sxyz)=x=yz: (Cxyz)/x/ylz/yzO: (Axyc)/.x/.y/c' (1) ( 
)A' (0)yc/.yAx' (0)c*S+x+ycA-x-yC+x+yc: (Rxk)/.x/.k() 
*ORx-k"R-x-k*+x() : (Vkp)/.k/.+?n' !%p() ' (l)AV-k*OpV- 
k*lpO: (Wn)RVn()n: (<xy)/.xl/.y<x' (0)/=+x+y<-x-y+y: ( 
Bnp)/.n:v?k' I'/.p/.+vO+v'-B-n-p' (O)B-n-p' (1) :w!y„: (Lk 
) :xWk/<wxBw()L*lkL()) 

size 269/1883 

value ($ 0123456789 ; <>ABCDEFGHIJKLMNOPQRSTUVWXYZ\] _ ' abc 
def ghijklmnopqrstuvwxyz | }) 

End of LISP Run 



Elapsed time is seconds. 
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setsO.l 



[[[ 

Test basic (finite) set functions. 
]]] 

[Set membership predicate; is e in set s?] 

& (Mes) /.sO /=e+sl Me-s 

Mx'(12345xabcde) 

Mq'(12345xabcde) 

[Eliminate duplicate elements from set s] 

& (Ds) /.s() /M+s-s D-s *+sD-s 

D'(1234512345abcde) 

DD' (1234512345abcde) 

[Set union] 

& (Uxy) /.xy /M+xy U-xy *+xU-xy 

U' (12345abcde) ' (abcde67890) 

[Set intersection] 

& (Ixy) /.x() /M+xy *+xI-xy I-xy 

I' (12345abcde) ' (abcde67890) 

[Subtract set y from set x] 

& (Sxy) /.x() /M+xy S-xy *+xS-xy 

S' (12345abcde) ' (abcde67890) 

[Identity function that displays a set of elements] 

& (Os) /.s() *,+sO-s 

0'(12345abcde) 

[Combine two bit strings by interleaving them] 

& (Cxy) /.xy /.yx *+x*+yC-x-y 

C (0000000000) ' (11111111111111111111) 
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setsO.r 

lisp.c 

LISP Interpreter Run 

[[[ 

Test basic (finite) set functions. 
]]] 

[Set membership predicate; is e in set s?] 
& (Mes) /.sO /=e+sl Me-s 

M: (&(es)(/(.s)0(/(=e(+s))l(Me(-s))))) 

Mx'(12345xabcde) 

expression (Mx( ' (12345xabcde) ) ) 
value 1 

Mq'(12345xabcde) 

expression (Mq( ' (12345xabcde))) 
value 

[Eliminate duplicate elements from set s] 
& (Ds) /.s() /M+s-s D-s *+sD-s 

D: (&(s) (/(.s) (/(M(+s) (-S)) (D(-s)) (*(+s) (D(-s)))))) 

D' (1234512345abcde) 
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expression (DC (1234512345abcde) ) ) 
value (12345abcde) 

DD' (1234512345abcde) 

expression (D(D( ' (1234512345abcde) ) ) ) 
value (12345abcde) 

[Set union] 

& (Uxy) /.xy /M+xy U-xy *+xU-xy 

U: (&(xy)(/(.x)y(/(M(+x)y)(U(-x)y)(*(+x)(U(-x)y))))) 

U' (12345abcde) ' (abcde67890) 

expression (U( ' (12345abcde) ) ( ' (abcde67890) ) ) 
value (12345abcde67890) 

[Set intersection] 

& (Ixy) /.x() /M+xy *+xI-xy I-xy 

I: (&(xy) (/(.x) (/(M(+x)y) (*(+x) (I(-x)y)) (I(-x)y)))) 

I' (12345abcde) ' (abcde67890) 

expression (I ( ' (12345abcde) ) ( ' (abcde67890) ) ) 
value (abode) 

[Subtract set y from set x] 

& (Sxy) /.x() /M+xy S-xy *+xS-xy 

S: (&(xy)(/(.x)()(/(M(+x)y)(S(-x)y)(*(+x)(S(-x)y))))) 

S' (12345abcde) ' (abcde67890) 

expression (S ( ' (12345abcde) ) ( ' (abcde67890) ) ) 
value (12345) 
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[Identity function that displays a set of elements] 
& (Os) /.s() *,+sO-s 

0: (&(s)(/(.s)()(*(,(+s))(D(-s))))) 

0' (12345abcde) 



expression 


(0('(12345ab 


display 


1 


display 


2 


display 


3 


display 


4 


display 


5 


display 


a 


display 


b 


display 


c 


display 


d 


display 


e 


value 


(12345abcde) 



[Combine two bit strings by interleaving them] 
& (Cxy) /.xy /.yx *+x*+yC-x-y 

C: (&(xy) (/(.x)y(/(.y)x(*(+x) (*(+y) (C(-x) (-y))))))) 

C (0000000000) ' (11111111111111111111) 

expression (C( ' (0000000000) )(' (11111111111111111111))) 
value (010101010101010101011111111111) 

End of LISP Run 

Elapsed time is seconds. 
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setsl.l 



[[[ 

Show that 

H(X set-union Y) <= H(X) + H(Y) + 1799 
and that 

H(X set-intersection Y) <= H(X) + H(Y) + 1799. 
Here X and Y are INFINITE sets. 
]]] 

[Combine two bit strings by interleaving them] 
& (Cxy) /.xy /.yx *+x*+yC-x-y 

& (Dl) /.I"? ('&(xy)x D-1 ,+1) [Display list in reverse] 

D- 
[[[++]]]?0M% 

"#"'"( [begin literally] 

[Package of set functions from setsO.l] 

(Mes) /.sO /=e+sl Me-s 

(Ds) /.s() /M+s-s D-s *+sD-s 

(Uxy) /.xy /M+xy U-xy *+xU-xy 

(Ixy) /.x() /M+xy *+xI-xy I-xy 

(Sxy) /.x() /M+xy S-xy *+xS-xy 

(Os) /.s() *,+sO-s 
[Main Loop: 

o is set of elements output so far. 
For first set, 
t is depth limit (time), b is bits read so far. 
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V 


?t ' ! %b 


w 


?n'\%c 


X 


U-v-w 


y 


OSxo 
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For second set, 

u is depth limit (time), c is bits read so far. 
] 
: (Lotbuc) 

[Run 1st computation again.] 
[Run 2nd computation again.] 
[Form UNION of sets so far] 
[Output all new elements] 

[This is an infinite loop. But to make debugging easier, 
halt if BOTH computations have halted.] 

/ /=0.+v /=0.+w 100 "? 

[Bump everything before branching to head of loop] 

[Value of y is discarded, x is new o] 
[Increment time for 1st computation] 
[Increment tape for 1st computation] 
[Increment time for 2nd computation] 
[Increment tape for 2nd computation] 

[Initially all 5 induction variables 
are empty.] 
) [end literally] 

C [Combine their bits in order needed] 

[Wrong order if programs use or %] 
#'"( *,a*,b*,cO ) [Program to enumerate 1st FINITE set] 

#'"( *,b*,c*,dO ) [Program to enumerate 2nd FINITE set] 



L X 




/="?+v *lt 


t 


/="!+v -b*@() 


b 


/="?+w *lu 


u 


/="!+w -c*@() 


c 


()()()()() 





setsl.r 

show.c 

LISP Interpreter Run 

[[[ 
Show that 

H(X set-union Y) <= H(X) + H(Y) + 1799 
and that 

H(X set-intersection Y) <= H(X) + H(Y) + 1799. 
Here X and Y are INFINITE sets. 
]]] 

[Combine two bit strings by interleaving them] 
& (Cxy) /.xy /.yx *+x*+yC-x-y 

C: (&(xy) (/(.x)y(/(.y)x(*(+x) (*(+y) (C(-x) (-y))))))) 

& (Dl) /.I"? ('&(xy)x D-1 ,+1) [Display list in reverse] 
D: (&(l)(/(.l)?(('(&(xy)x))(D(-l))(,(+l))))) 

D- 
[[[++]]]?0M% 

"#"'"( [begin literally] 

[Package of set functions from setsO.l] 
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V 


?t ' ! Ih 


w 


?u'\lc 


X 
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y 
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(Mes) /.sO /=e+sl Me-s 
(Ds) /.s() /M+s-s D-s *+sD-s 
(Uxy) /.xy /M+xy U-xy *+xU-xy 
(Ixy) /.x() /M+xy *+xI-xy I-xy 
(Sxy) /.x() /M+xy S-xy *+xS-xy 
(Os) /.s() *,+sO-s 
[Main Loop: 

o is set of elements output so far. 
For first set, 

t is depth limit (time), b is bits read so far. 
For second set, 

u is depth limit (time), c is bits read so far. 
] 
: (Lotbuc) 

[Run 1st computation again.] 
[Run 2nd computation again.] 
[Form UNION of sets so far] 
[Output all new elements] 
[This is an infinite loop. But to make debugging easier, 
halt if BOTH computations have halted.] 
/ /=0.+v /=0.+w 100 "? 
[Bump everything before branching to head of loop] 

[Value of y is discarded, x is new o] 
[Increment time for 1st computation] 
[Increment tape for 1st computation] 
[Increment time for 2nd computation] 
[Increment tape for 2nd computation] 

[Initially all 5 induction variables 
are empty.] 
) [end literally] 

C [Combine their bits in order needed] 

[Wrong order if programs use @ or %] 
#'"( *,a*,b*,cO ) [Program to enumerate 1st FINITE set] 
#'"( *,b*,c*,dO ) [Program to enumerate 2nd FINITE set] 

expression (D(-(?0(' (! (%) ) ) (~(#(~(' ( : (Mes)/.sO/=e+slMe-s: (Ds) 
/.s()/M+s-sD-s*+sD-s: (Uxy) / . xy/M+xyU-xy*+xU-xy : (Ix 



L X 




/="?+v *lt 


t 


/="!+v -b*@() 


b 


/="?+w *lu 


u 


/="!+w -c*@() 


c 


L() ()()()() 
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show 



size 

display 

display 

display 

display 

value 



y) / . X ( ) /M+xy*+xI-xyI-xy : (Sxy ) / . x ( ) /M+xyS-xy*+xS-xy 

: (Os)/.s()*,+sO-s: (Lotbuc) :v?t' !yob:w?u' !%c:xU-v-w: 

yOSxo//=0.+v/=0.+wlOO"?Lx/="?+v*ltt/="!+v'"b*@()b/= 

"?+w*luu/=" !+w-c*(§()cL() ())))) (C(#(' (*, a*, b* 

,cO)))(#('(*,b*,c*,dO)))))))) 

(: (Mes)/.sO/=e+slMe-s: (Ds)/. s()/M+s-sD-s*+sD-s: (Ux 

y) / . xy/M+xyU-xy*+xU-xy : (Ixy) / . x () /M+xy*+xI-xyI-xy : 

(Sxy) / . X /M+xyS-xy*+xS-xy : (Os) / . s ( ) * , +sD-s : (Lotbu 

c) :v?t' !y,b:w?u' !y,c:xU-v-w:yOSxo//=0.+v/=0.+wlOO"?L 

x/="?+v*ltt/=" !+v"b*@()b/="?+w*luu/=" !+w"c*@()cL() 

()()()()) 

257/1799 

a 

d 

c 

b 

7 



End of LISP Run 



Elapsed time is seconds. 
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sets2.1 



[[[ 

Show that 

H(X set-union Y) <= H(X) + H(Y) + 1799 
and that 

H(X set-intersection Y) <= H(X) + H(Y) + 1799. 
Here X and Y are INFINITE sets. 
]]] 

[Combine two bit strings by interleaving them] 
& (Cxy) /.xy /.yx *+x*+yC-x-y 

& (Dl) /.I"? ('&(xy)x D-1 ,+1) [Display list in reverse] 

D- 
[[[++]]]?0M% 

"#"'"( [begin literally] 

[Package of set functions from setsO.l] 

(Mes) /.sO /=e+sl Me-s 

(Ds) /.s() /M+s-s D-s *+sD-s 

(Uxy) /.xy /M+xy U-xy *+xU-xy 

(Ixy) /.x() /M+xy *+xI-xy I-xy 

(Sxy) /.x() /M+xy S-xy *+xS-xy 

(Os) /.s() *,+sO-s 
[Main Loop: 

o is set of elements output so far. 
For first set, 
t is depth limit (time), b is bits read so far. 
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For second set, 

u is depth limit (time), c is bits read so far. 
] 
: (Lotbuc) 

[Run 1st computation again.] 
[Run 2nd computation again.] 
[Form INTERSECTION of sets so far] 
[Output all new elements] 

[This is an infinite loop. But to make debugging easier, 
halt if EITHER computation has halted.] 

/ /=0.+vl /=0.+wl "? 

[Bump everything before branching to head of loop] 

[Value of y is discarded, x is new o] 
[Increment time for 1st computation] 
[Increment tape for 1st computation] 
[Increment time for 2nd computation] 
[Increment tape for 2nd computation] 

[Initially all 5 induction variables 
are empty.] 
) [end literally] 

C [Combine their bits in order needed] 

[Wrong order if programs use or %] 
#'"( *,a*,b*,cO ) [Program to enumerate 1st FINITE set] 

#'"( *,b*,c*,dO ) [Program to enumerate 2nd FINITE set] 



L X 




/="?+v *lt 


t 


/="!+v -b*@() 


b 


/="?+w *lu 


u 


/="!+w -c*@() 


c 


()()()()() 





sets2.r 

show.c 

LISP Interpreter Run 

[[[ 
Show that 

H(X set-union Y) <= H(X) + H(Y) + 1799 
and that 

H(X set-intersection Y) <= H(X) + H(Y) + 1799. 
Here X and Y are INFINITE sets. 
]]] 

[Combine two bit strings by interleaving them] 
& (Cxy) /.xy /.yx *+x*+yC-x-y 

C: (&(xy) (/(.x)y(/(.y)x(*(+x) (*(+y) (C(-x) (-y))))))) 

& (Dl) /.I"? ('&(xy)x D-1 ,+1) [Display list in reverse] 
D: (&(l)(/(.l)?(('(&(xy)x))(D(-l))(,(+l))))) 

D- 
[[[++]]]?0M% 

"#"'"( [begin literally] 

[Package of set functions from setsO.l] 
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(Mes) /.sO /=e+sl Me-s 
(Ds) /.s() /M+s-s D-s *+sD-s 
(Uxy) /.xy /M+xy U-xy *+xU-xy 
(Ixy) /.x() /M+xy *+xI-xy I-xy 
(Sxy) /.x() /M+xy S-xy *+xS-xy 
(Os) /.s() *,+sO-s 
[Main Loop: 

o is set of elements output so far. 
For first set, 

t is depth limit (time), b is bits read so far. 
For second set, 

u is depth limit (time), c is bits read so far. 
] 
: (Lotbuc) 

[Run 1st computation again.] 
[Run 2nd computation again.] 
[Form INTERSECTION of sets so far] 
[Output all new elements] 
[This is an infinite loop. But to make debugging easier, 
halt if EITHER computation has halted.] 
/ /=0.+vl /=0.+wl "? 
[Bump everything before branching to head of loop] 

[Value of y is discarded, x is new o] 
[Increment time for 1st computation] 
[Increment tape for 1st computation] 
[Increment time for 2nd computation] 
[Increment tape for 2nd computation] 

[Initially all 5 induction variables 
are empty.] 
) [end literally] 

C [Combine their bits in order needed] 

[Wrong order if programs use @ or %] 
#'"( *,a*,b*,cO ) [Program to enumerate 1st FINITE set] 
#'"( *,b*,c*,dO ) [Program to enumerate 2nd FINITE set] 

expression (D(-(?0(' (! (%) ) ) (~(#(~(' ( : (Mes)/.sO/=e+slMe-s: (Ds) 
/.s()/M+s-sD-s*+sD-s: (Uxy) / . xy/M+xyU-xy*+xU-xy : (Ix 



L X 




/="?+v *lt 


t 


/="!+v -b*@() 


b 


/="?+w *lu 


u 


/="!+w -c*@() 


c 


L() ()()()() 
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show 



size 
display 
display 
value 



y) / . X ( ) /M+xy*+xI-xyI-xy : (Sxy ) / . x ( ) /M+xyS-xy*+xS-xy 

: (Os)/.s()*,+sO-s: (Lotbuc) :v?t' !yob:w?u' !%c:xl-v-w: 

yOSxo//=0.+vl/=0.+wlO"?Lx/="?+v*ltt/="!+v'"b*@()b/= 

"?+w*luu/=" !+w-c*@()cL() ())))) (C(#(' (*, a*, b* 

,cO)))(#('(*,b*,c*,dO)))))))) 

(: (Mes)/.sO/=e+slMe-s: (Ds)/. s()/M+s-sD-s*+sD-s: (Ux 

y) / . xy/M+xyU-xy*+xU-xy : (Ixy) / . x () /M+xy*+xI-xyI-xy : 

(Sxy) / . X /M+xyS-xy*+xS-xy : (Os) / . s ( ) * , +sD-s : (Lotbu 

c) :v?t' !y,b:w?u' !y,c:xI-v-w:yOSxo//=0.+vl/=0.+wlO"?L 

x/="?+v*ltt/=" !+v"b*@()b/="?+w*luu/=" !+w"c*@()cL() 

()()()()) 

257/1799 

c 

b 

7 



End of LISP Run 



Elapsed time is seconds. 
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setsS.l 



[[[ 

Show that 

H(X set-union Y) <= H(X) + H(Y) + 1799 
and that 

H(X set-intersection Y) <= H(X) + H(Y) + 1799. 
Here X and Y are INFINITE sets. 
]]] 

[IMPORTANT: This test case never halts, so] [<=====!!!] 
[must run this with a depth limit on try/?] 

[Combine two bit strings by interleaving them] 
& (Cxy) /.xy /.yx *+x*+yC-x-y 

& (Dl) /.I"? ('&(xy)x D-1 ,+1) [display list in reverse] 

D- 

[[[++]]] ? ++?0'7,#"'({768» '\°L 

"#'"( [begin literally] 

[Package of set functions from setsO.l] 

(Mes) /.sO /=e+sl Me-s 

(Ds) /.s() /M+s-s D-s *+sD-s 

(Uxy) /.xy /M+xy U-xy *+xU-xy 

(Ixy) /.x() /M+xy *+xI-xy I-xy 

(Sxy) /.x() /M+xy S-xy *+xS-xy 

(Os) /.s() *,+sO-s 
[Main Loop: 

125 
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o is set of elements output so far. 

For first set, 

t is depth limit (time), b is bits read so far. 

For second set, 

u is depth limit (time), c is bits read so far. 
] 
: (Lotbuc) 

V ?t'!y,b [Run 1st computation again.] 

w ?u' I'/oC [Run 2nd computation again.] 

X I-v-w [Form INTERSECTION of sets so far] 

y OSxo [Output all new elements] 

[This is an infinite loop. But to make debugging easier, 
halt if EITHER computation has halted.] 

/ /=0.+vl /=0.+wl "? 

[Bump everything before branching to head of loop] 

L X [Value of y is discarded, x is new o] 

/="?+v *lt t [Increment time for 1st computation] 
/="!+v ~b*@() b [Increment tape for 1st computation] 
/="?+w *lu u [Increment time for 2nd computation] 
/="!+w ~c*@() c [Increment tape for 2nd computation] 

L()() ()()() [Initially all 5 induction variables 

are empty.] 
) [end literally] 

C [Combine their bits in order needed] 

[Wrong order if programs use or %] 
[Program to enumerate 1st INFINITE set] 

#'"( : (Lk)L,*l*lk L() ) 

[Program to enumerate 2nd INFINITE set] 

#'"( : (Lk)L,*l*l*lk L() ) 



setsS.r 

lisp.c 

LISP Interpreter Run 

[[[ 
Show that 

H(X set-union Y) <= H(X) + H(Y) + 1799 
and that 

H(X set-intersection Y) <= H(X) + H(Y) + 1799. 
Here X and Y are INFINITE sets. 
]]] 

[IMPORTANT: This test case never halts, so] [<=====!!!] 
[must run this with a depth limit on try/?] 

[Combine two bit strings by interleaving them] 
& (Cxy) /.xy /.yx *+x*+yC-x-y 

C: (&(xy) (/(.x)y(/(.y)x(*(+x) (*(+y) (C(-x) (-y))))))) 

& (Dl) /.I"? ('&(xy)x D-1 ,+1) [display list in reverse] 
D: (&(l)(/(.l)?(('(&(xy)x))(D(-l))(,(+l))))) 



D- 

[[[++]]] ? ++?0'%#"'({768» '\°L 
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~#'"( [begin literally] 

[Package of set functions from setsO.l] 
(Mes) /.sO /=e+sl Me-s 
(Ds) /.s() /M+s-s D-s *+sD-s 
(Uxy) /.xy /M+xy U-xy *+xU-xy 
(Ixy) /.x() /M+xy *+xI-xy I-xy 
(Sxy) /.x() /M+xy S-xy *+xS-xy 
(Os) /.s() *,+sD-s 
[Main Loop: 

o is set of elements output so far. 
For first set, 

t is depth limit (time), b is bits read so far. 
For second set, 

u is depth limit (time), c is bits read so far. 
] 
: (Lotbuc) 

V Tt'l/ob [Run 1st computation again.] 
w ?\i' \°/oC [Run 2nd computation again.] 

X I-v-w [Form INTERSECTION of sets so far] 
y DSxo [Output all new elements] 
[This is an infinite loop. But to make debugging easier, 
halt if EITHER computation has halted.] 
/ /=0.+vl /=0.+wl "? 
[Bump everything before branching to head of loop] 

[Value of y is discarded, x is new o] 
[Increment time for 1st computation] 
[Increment tape for 1st computation] 
[Increment time for 2nd computation] 
[Increment tape for 2nd computation] 

[Initially all 5 induction variables 
are empty.] 
[end literally] 

[Combine their bits in order needed] 
[Wrong order if programs use @ or %] 
[Program to enumerate 1st INFINITE set] 
( : (Lk)L,*l*lk L() ) 



L X 




/="?+v *lt 


t 


/="!+v -b*@() 


b 


/="?+w *lu 


u 


/="!+w -c*@() 


c 


()()()()() 





setsS.r 



129 



[Program to enumerate 2nd INFINITE set] 
#'"( : (Lk)L,*l*l*lk L() ) 

expression (D(-(?(+(+(?0( '(%))(#(' ({768})))))) ('(!(%)))(" (#(' 
(: (Mes)/.sO/=e+slMe-s: (Ds)/. s()/M+s-sD-s*+sD-s: (Ux 
y ) / . xy/M+xyU-xy *+xU-xy : ( Ixy) / . x ( ) /M+xy*+xI-xy I -xy : 
(Sxy ) / . X ( ) /M+xyS-xy*+xS-xy :(Os)/.s()*,+sO-s: (Lotbu 
c) :v?t' !7,b:w?u' !7,c:xI-v-w:yOSxo//=0.+vl/=0.+wlO"?L 
x/="?+v*ltt/=" !+v-b*@()b/="?+w*luu/=" l+w'cHeOcLO 
()()()())))(C(#('(:(Lk)L,*l*lkL())))(#('(:(Lk)L,*l 
*l*lkL())))))))) 
display (111111) 
display (111111111111) 
display (111111111111111111) 
display (111111111111111111111111) 
display (111111111111111111111111111111) 
display (111111111111111111111111111111111111) 
display (111111111111111111111111111111111111111111) 
display (111111111111111111111111111111111111111111111111) 
display (1111111111111111111111111111111111111111111111111 

11111) 
value ? 

End of LISP Run 



Elapsed time is 1 seconds. 
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sets4.1 



[[[ 

Show that 

H(X set-union Y) <= H(X) + H(Y) + 1799 
and that 

H(X set-intersection Y) <= H(X) + H(Y) + 1799. 
Here X and Y are INFINITE sets. 
]]] 

[IMPORTANT: This test case never halts, so] [<=====!!!] 
[must run this with a depth limit on try/?] 

[Combine two bit strings by interleaving them] 
& (Cxy) /.xy /.yx *+x*+yC-x-y 

& (Dl) /.I"? ('&(xy)x D-1 ,+1) [display list in reverse] 

D- 

[[[++]]] ? ++?0'%#"'({704» '\°L 

"#'"( [begin literally] 

[Package of set functions from setsO.l] 

(Mes) /.sO /=e+sl Me-s 

(Ds) /.s() /M+s-s D-s *+sD-s 

(Uxy) /.xy /M+xy U-xy *+xU-xy 

(Ixy) /.x() /M+xy *+xI-xy I-xy 

(Sxy) /.x() /M+xy S-xy *+xS-xy 

(Os) /.s() *,+sO-s 
[Main Loop: 

131 
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o is set of elements output so far. 

For first set, 

t is depth limit (time), b is bits read so far. 

For second set, 

u is depth limit (time), c is bits read so far. 
] 
: (Lotbuc) 

V ?t'!y,b [Run 1st computation again.] 
w ?u' \°/,c [Run 2nd computation again.] 

X U-v-w [Form UNION of sets so far] 
y OSxo [Output all new elements] 

[This is an infinite loop. But to make debugging easier, 
halt if BOTH computations have halted.] 

/ /=0.+v /=0.+w 100 "? 

[Bump everything before branching to head of loop] 

L X [Value of y is discarded, x is new o] 

/="?+v *lt t [Increment time for 1st computation] 
/="!+v ~b*@() b [Increment tape for 1st computation] 
/="?+w *lu u [Increment time for 2nd computation] 
/="!+w ~c*@() c [Increment tape for 2nd computation] 

L()() ()()() [Initially all 5 induction variables 

are empty.] 
) [end literally] 

C [Combine their bits in order needed] 

[Wrong order if programs use or %] 
[Program to enumerate 1st INFINITE set] 

#'"( : (Lk)L,*l*lk L() ) 

[Program to enumerate 2nd INFINITE set] 

#'"( : (Lk)L,*2*2*2k L() ) 



sets4.r 

lisp.c 

LISP Interpreter Run 

[[[ 
Show that 

H(X set-union Y) <= H(X) + H(Y) + 1799 
and that 

H(X set-intersection Y) <= H(X) + H(Y) + 1799. 
Here X and Y are INFINITE sets. 
]]] 

[IMPORTANT: This test case never halts, so] [<=====!!!] 
[must run this with a depth limit on try/?] 

[Combine two bit strings by interleaving them] 
& (Cxy) /.xy /.yx *+x*+yC-x-y 

C: (&(xy) (/(.x)y(/(.y)x(*(+x) (*(+y) (C(-x) (-y))))))) 

& (Dl) /.I"? ('&(xy)x D-1 ,+1) [display list in reverse] 
D: (&(l)(/(.l)?(('(&(xy)x))(D(-l))(,(+l))))) 



D- 

[[[++]]] ? ++?0'%#"'({704» '\°L 
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~#'"( [begin literally] 

[Package of set functions from setsO.l] 
(Mes) /.sO /=e+sl Me-s 
(Ds) /.s() /M+s-s D-s *+sD-s 
(Uxy) /.xy /M+xy U-xy *+xU-xy 
(Ixy) /.x() /M+xy *+xI-xy I-xy 
(Sxy) /.x() /M+xy S-xy *+xS-xy 
(Os) /.s() *,+sD-s 
[Main Loop: 

o is set of elements output so far. 
For first set, 

t is depth limit (time), b is bits read so far. 
For second set, 

u is depth limit (time), c is bits read so far. 
] 
: (Lotbuc) 

V Tt'l/ob [Run 1st computation again.] 
w ?\i' \°/oC [Run 2nd computation again.] 

X U-v-w [Form UNION of sets so far] 
y DSxo [Output all new elements] 
[This is an infinite loop. But to make debugging easier, 
halt if BOTH computations have halted.] 
/ /=0.+v /=0.+w 100 "? 
[Bump everything before branching to head of loop] 

[Value of y is discarded, x is new o] 
[Increment time for 1st computation] 
[Increment tape for 1st computation] 
[Increment time for 2nd computation] 
[Increment tape for 2nd computation] 

[Initially all 5 induction variables 
are empty.] 
[end literally] 

[Combine their bits in order needed] 
[Wrong order if programs use @ or %] 
[Program to enumerate 1st INFINITE set] 
( : (Lk)L,*l*lk L() ) 



L X 




/="?+v *lt 


t 


/="!+v -b*@() 


b 


/="?+w *lu 


u 


/="!+w -c*@() 


c 


()()()()() 





setsd.r 
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[Program to enumerate 2nd INFINITE set] 
#'"( : (Lk)L,*2*2*2k L() ) 



expression (D(-(?(+(+(?0( '(%))(#(' ({704})))))) ('(!(%)))(" (#(' 
(: (Mes)/.sO/=e+slMe-s: (Ds)/. s()/M+s-sD-s*+sD-s: (Ux 
y ) / . xy/M+xyU-xy *+xU-xy : ( Ixy) / . x ( ) /M+xy*+xI-xy I -xy : 
(Sxy ) / . X ( ) /M+xyS-xy*+xS-xy :(Os)/.s()*,+sO-s: (Lotbu 
c) :v?t' !7,b:w?u' !7,c:xU-v-w:yOSxo//=0.+v/=0.+wlOO"?L 
x/="?+v*ltt/=" !+v-b*@()b/="?+w*luu/=" l+w'cHeOcLO 
()()()())))(C(#('(:(Lk)L,*l*lkL())))(#('(:(Lk)L,*2 
*2*2kL())))))))) 

display (11) 

display (1111) 

display (111111) 

display (11111111) 

display (1111111111) 

display (111111111111) 

display (11111111111111) 

display (1111111111111111) 

display (111111111111111111) 

display (11111111111111111111) 

display (1111111111111111111111) 

display (111111111111111111111111) 

display (11111111111111111111111111) 

display (1111111111111111111111111111) 

display (111111111111111111111111111111) 

display (222) 

display (11111111111111111111111111111111) 

display (222222) 

display (1111111111111111111111111111111111) 

display (222222222) 

display (111111111111111111111111111111111111) 

display (222222222222) 

display (11111111111111111111111111111111111111) 

display (222222222222222) 

display (1111111111111111111111111111111111111111) 

display (222222222222222222) 

value ? 
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End of LISP Run 

Elapsed time is seconds. 
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[[[ 

Show that a formal system of complexity N 
can't prove that a specific object has 
complexity > N + 735. 

Formal system is a never halting lisp expression 
that displays pairs (lisp object, lower bound 
on its complexity). E.g., (x(llll)) means 
that X has complexity H(x) greater than or equal to 4. 
]]] 

[ (<xy) tells if x is less than y ] 
& (<xy) /.yO /.xl <-x-y 
<'(11)' (11) 

<) (iii)> (11) 



[ Search list p for first s in pair (s,m) with H(s) >= m 
[ (Returns 0/false to indicate not found.) ] 
& (Epn) /.p /<n+-+p ++P E-pn 



> n ] 



E'((x(ll))(y(lll)) 
E'((x(ll))(y(lll)) 
E'((x(ll))(y(lll)) 
E'((x(ll))(y(lll)) 
E'((x(ll))(y(lll)) 





(1) 

(11) 

(111) 

(1111) 



++?0' \°/o [[Universal binary computer U]] 
[[Put together program for U:]] 
~#~' [[Show crucial prefix so can size it]] 

"( [[begin literally]] 
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[ (<xy) tells if x is less than y ] 

: (<xy) /.yl /.xl <-x-y [[ BAD DEFINITION!!! ALWAYS TRUE ]] 

[ Search list p for first s in pair (s,m) with H(s) >= m > n ] 
[ (Returns 0/false to indicate not found.) ] 
: (Epn) /.p /<n+-+p ++p E-pn 

[Main Loop - t is depth limit (time) , 

b is bits of FAS read so far (buffer)] 
: (Ltb) 
:v ?t'!%b [Run FAS for time t.] 

[Look for s-exp s that is proved to have complexity H(s)] 
:s E-v-b'{735> [ > 735 + # of bits of FAS read.] 
/s s [Found it! Output it and halt.] 

[Contradiction: our value has complexity 
greater than our size!] 

[Our size is 735 bits + the number of bits of 
the FAS that were read at the point that the 
search succeeded (some bits of the FAS may be 
unread) .] 
/="!+v L t "b*@() [Read another bit of FAS.] 
/="?+v L *lt b [Increase depth/time limit.] 
"? [Surprise, formal system halts, so we do too.] 

L()() [Initially, depth limit and no bits read.] 

) [[end literally]] 

#' 

"( [[begin literally]] 

[[This is the FAS]] 

,'((xy)(ll)) [FAS = {"H((xy)) >= 2">] 

) [[end literally]] 



godel.r 

show.c 

LISP Interpreter Run 

[[[ 

Show that a formal system of complexity N 
can't prove that a specific object has 
complexity > N + 735. 

Formal system is a never halting lisp expression 
that displays pairs (lisp object, lower bound 
on its complexity). E.g., (x(llll)) means 
that X has complexity H(x) greater than or equal to 4. 

]]] 

[ (<xy) tells if x is less than y ] 
k (<xy) /.yO /.xl <-x-y 

<: (&(xy)(/(.y)0(/(.x)l«(-x)(-y))))) 

<' (11)' (11) 

expression (<( ' (11)) ( ' (11) ) ) 
value 

expression (<( ' (11) ) ( ' (111) ) ) 
value 1 
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<'(111)'(11) 

expression (<( ' (111)) ( ' (11))) 
value 



[ Search list p for first s in pair (s,m) with H(s) >= m > n ] 
[ (Returns 0/false to indicate not found.) ] 
& (Epn) /.p /<n+-+p ++P E-pn 

E: (&(pn) (/(.p)0(/«n(+(-(+p)))) (+(+p)) (E(-p)n)))) 

E'((x(ll))(y(lll)))'() 

expression (E( ' ((x(ll)) (y(lll)))) (H))) 
value X 

E'((x(ll))(y(lll)))'(l) 

expression (E( ' ((x(ll) ) (y(lll)))) (' (1))) 
value X 

E'((x(ll))(y(lll)))'(ll) 

expression (E( ' ((x(ll)) (y(lll)))) (' (11))) 
value y 

E'((x(ll))(y(lll)))'(lll) 

expression (E( ' ((x(ll) ) (y(lll) ) ) ) (' (111) ) ) 
value 

E'((x(ll))(y(lll)))'(llll) 

expression (E( ' ((x(ll)) (y(lll)))) (' (1111))) 
value 



++70 ' \°/, [ [Universal binary computer U] ] 
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[[Put together program for U:]] 
~#~' [[Show crucial prefix so can size it]] 

"( [[begin literally]] 

[ (<xy) tells if x is less than y ] 

: (<xy) /.yl /.xl <-x-y [[ BAD DEFINITION!!! ALWAYS TRUE ]] 

[ Search list p for first s in pair (s,m) with H(s) >= m > n ] 
[ (Returns 0/false to indicate not found.) ] 
: (Epn) /.p /<n+-+p ++p E-pn 

[Main Loop - t is depth limit (time) , 

b is bits of FAS read so far (buffer)] 
: (Ltb) 
:v ?t'!%b [Run FAS for time t.] 

[Look for s-exp s that is proved to have complexity H(s)] 
:s E-v-b'{735> [ > 735 + # of bits of FAS read.] 
/s s [Found it! Output it and halt.] 

[Contradiction: our value has complexity 
greater than our size!] 

[Our size is 735 bits + the number of bits of 
the FAS that were read at the point that the 
search succeeded (some bits of the FAS may be 
unread) . ] 
/="l+v L t '■b*@() [Read another bit of FAS.] 
/="?+v L *lt b [Increase depth/time limit.] 
"? [Surprise, formal system halts, so we do too.] 

L()() [Initially, depth limit and no bits read.] 

) [[end literally]] 

#' 

"( [[begin literally]] 

[[This is the FAS]] 

,'((xy)(ll)) [FAS = {"H((xy)) >= 2">] 

) [[end literally]] 
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expression (+(+(?0( '(!(%)))(-(#(-(' (: (<xy)/.yl/.xl<-x-y: (Epn) 
/ . pO/<n+-+p++pE-pn : (Ltb) : v?t ' ! 7,b : sE-v^b ' {735>/ss/= 
" !+vLt-b*(§()/="?+vL*ltb"?L() ))))(#('(,' ((xy) (11) 
)))))))) 

show ( : (<xy) / . yl/ . xK-x-y : (Epn) / . pO/<n+-+p++pE-pn : (Ltb) 
:v?t' !%b:sE-v"b'{735}/ss/="!+vLt'-b*(§()/="?+vL*ltb" 
?L()()) 

size 105/735 

value (xy) 

End of LISP Run 

Elapsed time is seconds. 
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[[[ 

Show that a formal system of complexity N 
can't prove that a specific object has 
complexity > N + 735. 

Formal system is a never halting lisp expression 
that displays pairs (lisp object, lower bound 
on its complexity). E.g., (x(llll)) means 
that X has complexity H(x) greater than or equal to 4. 
]]] 

[ (<xy) tells if x is less than y ] 
& (<xy) /.yO /.xl <-x-y 
<'(11)' (11) 

<) (iii)> (11) 



[ Search list p for first s in pair (s,m) with H(s) >= m 
[ (Returns 0/false to indicate not found.) ] 
& (Epn) /.p /<n+-+p ++P E-pn 



> n ] 



E'((x(ll))(y(lll)) 
E'((x(ll))(y(lll)) 
E'((x(ll))(y(lll)) 
E'((x(ll))(y(lll)) 
E'((x(ll))(y(lll)) 





(1) 

(11) 

(111) 

(1111) 



++?0' \°/o [[Universal binary computer U]] 
[[Put together program for U:]] 
~#~' [[Show crucial prefix so can size it]] 

"( [[begin literally]] 
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[ (<xy) tells if x is less than y ] 

: (<xy) /.yO /.xl <-x-y [[ CORRECT DEFINITION!!! ]] 

[ Search list p for first s in pair (s,m) with H(s) >= m > n ] 
[ (Returns 0/false to indicate not found.) ] 
: (Epn) /.p /<n+-+p ++p E-pn 

[Main Loop - t is depth limit (time) , 

b is bits of FAS read so far (buffer)] 
: (Ltb) 
:v ?t'!%b [Run FAS for time t.] 

[Look for s-exp s that is proved to have complexity H(s)] 
:s E-v-b'{735> [ > 735 + # of bits of FAS read.] 
/s s [Found it I Output it and halt.] 

[Contradiction: our value has complexity 
greater than our size!] 

[Our size is 735 bits + the number of bits of 
the FAS that were read at the point that the 
search succeeded (some bits of the FAS may be 
unread) .] 
/="!+v L t "b*@() [Read another bit of FAS.] 
/="?+v L *lt b [Increase depth/time limit.] 
"? [Surprise, formal system halts, so we do too.] 

L()() [Initially, depth limit and no bits read.] 

) [[end literally]] 

#' 

"( [[begin literally]] 

[[This is the FAS]] 

,'((xy)(ll)) [FAS = {"H((xy)) >= 2">] 

) [[end literally]] 



godel2.r 

show.c 

LISP Interpreter Run 

[[[ 

Show that a formal system of complexity N 
can't prove that a specific object has 
complexity > N + 735. 

Formal system is a never halting lisp expression 
that displays pairs (lisp object, lower bound 
on its complexity). E.g., (x(llll)) means 
that X has complexity H(x) greater than or equal to 4. 

]]] 

[ (<xy) tells if x is less than y ] 
k (<xy) /.yO /.xl <-x-y 

<: (&(xy)(/(.y)0(/(.x)l«(-x)(-y))))) 

<' (11)' (11) 

expression (<( ' (11)) ( ' (11) ) ) 
value 

expression (<( ' (11) ) ( ' (111) ) ) 
value 1 
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<'(111)'(11) 

expression (<( ' (111)) ( ' (11))) 
value 



[ Search list p for first s in pair (s,m) with H(s) >= m > n ] 
[ (Returns 0/false to indicate not found.) ] 
& (Epn) /.p /<n+-+p ++P E-pn 

E: (&(pn) (/(.p)0(/«n(+(-(+p)))) (+(+p)) (E(-p)n)))) 

E'((x(ll))(y(lll)))'() 

expression (E( ' ((x(ll)) (y(lll)))) (H))) 
value X 

E'((x(ll))(y(lll)))'(l) 

expression (E( ' ((x(ll) ) (y(lll)))) (' (1))) 
value X 

E'((x(ll))(y(lll)))'(ll) 

expression (E( ' ((x(ll)) (y(lll)))) (' (11))) 
value y 

E'((x(ll))(y(lll)))'(lll) 

expression (E( ' ((x(ll) ) (y(lll) ) ) ) (' (111) ) ) 
value 

E'((x(ll))(y(lll)))'(llll) 

expression (E( ' ((x(ll)) (y(lll)))) (' (1111))) 
value 
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[[Put together program for U:]] 
~#~' [[Show crucial prefix so can size it]] 

"( [[begin literally]] 

[ (<xy) tells if x is less than y ] 

: (<xy) /.yO /.xl <-x-y [[ CORRECT DEFINITION!!! ]] 

[ Search list p for first s in pair (s,m) with H(s) >= m > n ] 
[ (Returns 0/false to indicate not found.) ] 
: (Epn) /.p /<n+-+p ++p E-pn 

[Main Loop - t is depth limit (time) , 

b is bits of FAS read so far (buffer)] 
: (Ltb) 
:v ?t'!%b [Run FAS for time t.] 

[Look for s-exp s that is proved to have complexity H(s)] 
:s E-v-b'{735> [ > 735 + # of bits of FAS read.] 
/s s [Found it I Output it and halt.] 

[Contradiction: our value has complexity 
greater than our size!] 

[Our size is 735 bits + the number of bits of 
the FAS that were read at the point that the 
search succeeded (some bits of the FAS may be 
unread) . ] 
/="!+v L t '■b*@() [Read another bit of FAS.] 
/="?+v L *lt b [Increase depth/time limit.] 
"? [Surprise, formal system halts, so we do too.] 

L()() [Initially, depth limit and no bits read.] 

) [[end literally]] 

#' 

"( [[begin literally]] 

[[This is the FAS]] 

,'((xy)(ll)) [FAS = {"H((xy)) >= 2">] 

) [[end literally]] 
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expression (+(+(?0( '(!(%)))(-(#(-(' (: (<xy)/.yO/.xl<-x-y: (Epn) 
/ . pO/<n+-+p++pE-pn : (Ltb) : v?t ' ! 7,b : sE-v^b ' {735>/ss/= 
" !+vLt-b*(§()/="?+vL*ltb"?L() ))))(#('(,' ((xy) (11) 
)))))))) 

show ( : (<xy) / . yO/ . xK-x-y : (Epn) / . pO/<n+-+p++pE-pn : (Ltb) 
:v?t' !%b:sE-v"b'{735}/ss/="!+vLt'-b*(§()/="?+vL*ltb" 
?L()()) 

size 105/735 

value ? 

End of LISP Run 

Elapsed time is seconds. 
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[[[ 

Show that a formal system of complexity N 
can't determine more than N + 2933 bits of Omega. 
Formal system is a never halting lisp expression 
that displays lists of the form (lOXOXXXXlO) . 
This stands for the fractional part of Omega, 
and means that these 0,1 bits of Omega are known. 
X stands for an unknown bit. 

]]] 

[Count number of bits in an omega that are determined.] 

& (Cw) /.w() /=X+w C-w *lC-w 

C (XXX) 

C (IXX) 

C (1X0) 

C (110) 

[Merge bits of data into unknown bits of an omega.] 

& (Mw) /.w() * /=X+w@+w M-w 

[Test it.] 

++?0 ' : (Mw)/.w()*/=X+w@+wM-w M' (OOXOOXOOX) '(111) 

++?0 ': (Mw)/.w()*/=X+w(§+wM-w M' (11X11X111) '(00) 

[(<xy) tells if x is less than y.] 
& (<xy) /.yO /.xl <-x-y 
<'(11)'(11) 
<' (11)' (111) 
<' (111)' (11) 
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[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Returns to indicate not found, or what it found. 

] 

& (Ewn) /.w /<nC+w +w E-wn 



E' ((00) (000)) 
E' ((00) (000)) 
E' ((00) (000)) 
E' ((00) (000)) 
E' ((00) (000)) 





(1) 

(11) 

(111) 

(1111) 



++?0'!yo [ The universal computer U ] 

[ Put together program for U : ] 

"#"' [ Show crucial prefix so that we can size it ] 

" ( [ begin literally ] 

[Count number of bits in an omega that are determined.] 
: (Cw) /.w() /=X+w C-w *lC-w 

[Merge bits of data into unknown bits of an omega.] 
: (Mw) /.w() * /=X+w@+w M-w 

[(<xy) tells if x is less than y.] 

: (<xy) /.yl /.xl <-x-y [[FORCED TO "TRUE" FOR TEST]] 

[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Returns to indicate not found, or what it found. 

] 

: (Ewn) / . w /<nC+w +w E-wn 

[ 

We know that H(Dmega_n) > n - 1883 (see omega2.1). 

Size of this program is 1050 + bits of FAS read + missing bits of Omega. 

Program tries to output this many + 1883 bits of Omega. 

But that would give us a program whose output is more complex 
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than the size of the program. Contradiction! 
Thus this program won't find what it is looking for. 

So FAS of complexity N cannot determine > N + 1883 + 1050 bits of Omega, 
i.e., > N + 2933 bits of Omega. 
] 
[Main Loop: t is depth limit (time), 

b is bits of FAS read so far (buffer).] 
: (Ltb) 
: V ?t ' ! 7,b [Run FAS again . ] 
:s E-v"b'{2933} [Look for an omega with > 

(size of this program + 1883) bits determined.] 
/s Ms [Found it! Merge in undetermined bits, 

output result, and halt.] 
/="!+v L t "b*@() [Read another bit of FAS.] 
/="?+v L *lt b [Increase depth/time limit.] 
"? [Surprise, formal system halts, 

so we do too.] 

L()() [Initially, depth limit 

and no bits read.] 
) [end literally] 

"#'"( 

,'(1X0) [Toy formal system with only one theorem.] 
) 

'(0) [Missing bit of omega that is needed.] 
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show.c 

LISP Interpreter Run 

[[[ 

Show that a formal system of complexity N 
can't determine more than N + 2933 bits of Omega. 
Formal system is a never halting lisp expression 
that displays lists of the form (lOXOXXXXlO) . 
This stands for the fractional part of Omega, 
and means that these 0,1 bits of Omega are known. 
X stands for an unknown bit. 

]]] 

[Count number of bits in an omega that are determined.] 
& (Cw) /.w() /=X+w C-w *lC-w 

C: (&(w) (/(.w) (/(=X(+w)) (C(-w)) (*l(C(-w)))))) 

C (XXX) 

expression (C('(XXX))) 
value 

C (IXX) 

expression (C('(1XX))) 
value (1) 
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C (1X0) 

expression (C('(1X0))) 

value (11) 

C (110) 

expression (C('(110))) 

value (111) 



[Merge bits of data into unknown bits of an omega.] 
& (Mw) /.w() * /=X+w@+w M-w 



M: 



(&(w)(/(.w)()(*(/(=X(+w))(@)(+w))(M(-w))))) 



[Test it.] 

++?0 ' : (Mw)/.w()*/=X+w@+wM-w M^OOXOOXOOX) '(111) 

expression (+(+ (?0 ('(('(& (M) (M( ' (OOXOOXOOX) ))))('(& (w) (/(. w) ( 

)(*(/(=X(+w))(@)(+w))(M(-w)))) ))))(' (111))))) 
value (001001001) 

++?0 ': (Mw)/.w()*/=X+w(§+wM-w M' (11X11X111) '(00) 

expression (+ (+ (?0 ( ' ( ( ' (&(M) (M( ' (11X11X111) ))))('(& (w) (/(. w) ( 

)(*(/(=X(+w))(@)(+w))(M(-w))))))))('(00))))) 
value (110110111) 



[(<xy) tells if x is less than y.] 
& (<xy) /.yO /.xl <-x-y 



(&(xy)(/(.y)0(/(.x)l«(-x)(-y))))) 



<' (11)' (11) 



expression (<( ' (11)) ( ' (11))) 
value 
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<'(11)'(111) 

expression (<( ' (11)) ( ' (111) )) 
value 1 

<) (iii)> (11) 

expression (<( ' (111)) ( ' (11))) 
value 



[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Returns to indicate not found, or what it found. 

] 

& (Ewn) /.w /<nC+w +w E-wn 

E: (&(wn)(/(.w)0(/(<n(C(+w)))(+w)(E(-w)n)))) 

E'((00)(000))'() 

expression (E( ' ( (00) (000) ))('())) 
value (00) 

E'((00)(000))'(1) 

expression (E( ' ((00) (000))) ( ' (1))) 
value (00) 

E' ((00) (000))' (11) 

expression (E( ' ( (00) (000) ) ) ( ' (11) ) ) 
value (000) 

E' ((00) (000)) '(111) 

expression (E( ' ((00) (000))) ( ' (111))) 
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value 

E' ((00) (000)) '(1111) 

expression (EC ((00) (000))) (' (1111))) 
value 



++70' !% [ The universal computer U ] 

[ Put together program for U : ] 

"#"' [ Show crucial prefix so that we can size it ] 

" ( [ begin literally ] 

[Count number of bits in an omega that are determined.] 
: (Cw) /.w() /=X+w C-w *lC-w 

[Merge bits of data into unknown bits of an omega.] 
: (Mw) /.w() * /=X+w@+w M-w 

[(<xy) tells if x is less than y.] 

: (<xy) /.yl /.xl <-x-y [[FORCED TO "TRUE" FOR TEST]] 

[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Returns to indicate not found, or what it found. 

] 

: (Ewn) / . w /<nC+w +w E-wn 

[ 

We know that H(Dmega_n) > n - 1883 (see omega2.1). 

Size of this program is 1050 + bits of FAS read + missing bits of Omega. 

Program tries to output this many + 1883 bits of Omega. 

But that would give us a program whose output is more complex 

than the size of the program. Contradiction! 

Thus this program won't find what it is looking for. 

So FAS of complexity N cannot determine > N + 1883 + 1050 bits of Omega, 

i.e., > N + 2933 bits of Omega. 
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] 

[Main Loop: t is depth limit (time), 

b is bits of FAS read so far (buffer) .] 
: (Ltb) 
: V ?t M Ih [Run FAS again . ] 

:s E-v''b'{2933} [Look for an omega with > 

(size of this program + 1883) bits determined.] 
/s Ms [Found it! Merge in undetermined bits, 

output result, and halt.] 
/="!+v L t '■b*@() [Read another bit of FAS.] 
/="?+v L *lt b [Increase depth/time limit.] 
"? [Surprise, formal system halts, 

so we do too.] 

L()() [Initially, depth limit 

and no bits read.] 
) [end literally] 

-#)„( 

,'(1X0) [Toy formal system with only one theorem.] 
) 

'(0) [Missing bit of omega that is needed.] 

expression (+(+(?0('(! (%)))('(#("('(: (Cw)/.w()/=X+wC-w*lC-w: ( 
Mw)/.w()*/=X+w(§+wM-w: (<xy)/.yl/.xl<-x-y: (Ewn)/.wO/ 
<nC+w+wE-wn: (Ltb) :v?t' !y„b:sE-v-b'{2933}/sMs/=" !+vL 
t-b*@()/="?+vL*ltb"?L() ()))))(-(#('(,' (1X0) )))('(0 
))))))) 

show (: (Cw)/.w()/=X+wC-w*lC-w: (Mw)/.w()*/=X+w@+wM-w: (<x 
y) / . yl/ . xK-x-y : (Ewn) / . wO/<nC+w+wE-wn : (Ltb) : v?t ' ! % 
b:sE-v"b'{2933}/sMs/="!+vLt-b*@()/="?+vL*ltb"?L()( 
)) 

size 150/1050 

value (100) 

End of LISP Run 

Elapsed time is seconds. 
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[[[ 

Show that a formal system of complexity N 
can't determine more than N + 2933 bits of Omega. 
Formal system is a never halting lisp expression 
that displays lists of the form (lOXOXXXXlO) . 
This stands for the fractional part of Omega, 
and means that these 0,1 bits of Omega are known. 
X stands for an unknown bit. 
]]] 

[Count number of bits in an omega that are determined.] 

& (Cw) /.w() /=X+w C-w *lC-w 

C (XXX) 

C (IXX) 

C (1X0) 

C (110) 

[Merge bits of data into unknown bits of an omega.] 

& (Mw) /.w() * /=X+w@+w M-w 

[Test it.] 

++?0 ' : (Mw)/.w()*/=X+w@+wM-w M' (OOXOOXOOX) '(111) 

++?0 ': (Mw)/.w()*/=X+w(§+wM-w M' (11X11X111) '(00) 

[(<xy) tells if x is less than y.] 
& (<xy) /.yO /.xl <-x-y 
<'(11)'(11) 
<' (11)' (111) 
<' (111)' (11) 
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[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Returns to indicate not found, or what it found. 

] 

& (Ewn) /.w /<nC+w +w E-wn 



E' ((00) (000)) 
E' ((00) (000)) 
E' ((00) (000)) 
E' ((00) (000)) 
E' ((00) (000)) 





(1) 

(11) 

(111) 

(1111) 



++?0'!yo [ The universal computer U ] 

[ Put together program for U : ] 

"#"' [ Show crucial prefix so that we can size it ] 

" ( [ begin literally ] 

[Count number of bits in an omega that are determined.] 
: (Cw) /.w() /=X+w C-w *lC-w 

[Merge bits of data into unknown bits of an omega.] 
: (Mw) /.w() * /=X+w@+w M-w 

[(<xy) tells if x is less than y.] 

: (<xy) /.yO /.xl <-x-y [[CORRECT DEFINITION OF <] ] 

[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Returns to indicate not found, or what it found. 

] 

: (Ewn) / . w /<nC+w +w E-wn 

[ 

We know that H(Omega_n) > n - 1883 (see omega2.1). 

Size of this program is 1050 + bits of FAS read + missing bits of Omega. 

Program tries to output this many + 1883 bits of Omega. 

But that would give us a program whose output is more complex 
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than the size of the program. Contradiction! 
Thus this program won't find what it is looking for. 

So FAS of complexity N cannot determine > N + 1883 + 1050 bits of Omega, 
i.e., > N + 2933 bits of Omega. 
] 
[Main Loop: t is depth limit (time), 

b is bits of FAS read so far (buffer).] 
: (Ltb) 
: V ?t ' ! 7,b [Run FAS again . ] 
:s E-v"b'{2933} [Look for an omega with > 

(size of this program + 1883) bits determined.] 
/s Ms [Found it! Merge in undetermined bits, 

output result, and halt.] 
/="!+v L t "b*@() [Read another bit of FAS.] 
/="?+v L *lt b [Increase depth/time limit.] 
"? [Surprise, formal system halts, 

so we do too.] 

L()() [Initially, depth limit 

and no bits read.] 
) [end literally] 

"#'"( 

,'(1X0) [Toy formal system with only one theorem.] 
) 

'(0) [Missing bit of omega that is needed.] 
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show.c 

LISP Interpreter Run 

[[[ 

Show that a formal system of complexity N 
can't determine more than N + 2933 bits of Omega. 
Formal system is a never halting lisp expression 
that displays lists of the form (lOXOXXXXlO) . 
This stands for the fractional part of Omega, 
and means that these 0,1 bits of Omega are known. 
X stands for an unknown bit. 

]]] 

[Count number of bits in an omega that are determined.] 
& (Cw) /.w() /=X+w C-w *lC-w 

C: (&(w) (/(.w) (/(=X(+w)) (C(-w)) (*l(C(-w)))))) 

C (XXX) 

expression (C('(XXX))) 
value 

C (IXX) 

expression (C('(1XX))) 
value (1) 
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C (1X0) 

expression (C('(1X0))) 

value (11) 

C (110) 

expression (C('(110))) 

value (111) 



[Merge bits of data into unknown bits of an omega.] 
& (Mw) /.w() * /=X+w@+w M-w 



M: 



(&(w)(/(.w)()(*(/(=X(+w))(@)(+w))(M(-w))))) 



[Test it.] 

++?0 ' : (Mw)/.w()*/=X+w@+wM-w M^OOXOOXOOX) '(111) 

expression (+(+ (?0 ('(('(& (M) (M( ' (OOXOOXOOX) ))))('(& (w) (/(. w) ( 

)(*(/(=X(+w))(@)(+w))(M(-w)))) ))))(' (111))))) 
value (001001001) 

++?0 ': (Mw)/.w()*/=X+w(§+wM-w M' (11X11X111) '(00) 

expression (+ (+ (?0 ( ' ( ( ' (&(M) (M( ' (11X11X111) ))))('(& (w) (/(. w) ( 

)(*(/(=X(+w))(@)(+w))(M(-w))))))))('(00))))) 
value (110110111) 



[(<xy) tells if x is less than y.] 
& (<xy) /.yO /.xl <-x-y 



(&(xy)(/(.y)0(/(.x)l«(-x)(-y))))) 



<' (11)' (11) 



expression (<( ' (11)) ( ' (11))) 
value 
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<'(11)'(111) 

expression (<( ' (11)) ( ' (111) )) 
value 1 

<) (iii)> (11) 

expression (<( ' (111)) ( ' (11))) 
value 



[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Returns to indicate not found, or what it found. 

] 

& (Ewn) /.w /<nC+w +w E-wn 

E: (&(wn)(/(.w)0(/(<n(C(+w)))(+w)(E(-w)n)))) 

E'((00)(000))'() 

expression (E( ' ( (00) (000) ))('())) 
value (00) 

E'((00)(000))'(1) 

expression (E( ' ((00) (000))) ( ' (1))) 
value (00) 

E' ((00) (000))' (11) 

expression (E( ' ( (00) (000) ) ) ( ' (11) ) ) 
value (000) 

E' ((00) (000)) '(111) 

expression (E( ' ((00) (000))) ( ' (111))) 
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value 

E' ((00) (000)) '(1111) 

expression (EC ((00) (000))) (' (1111))) 
value 



++70' !% [ The universal computer U ] 

[ Put together program for U : ] 

"#"' [ Show crucial prefix so that we can size it ] 

" ( [ begin literally ] 

[Count number of bits in an omega that are determined.] 
: (Cw) /.w() /=X+w C-w *lC-w 

[Merge bits of data into unknown bits of an omega.] 
: (Mw) /.w() * /=X+w@+w M-w 

[(<xy) tells if x is less than y.] 

: (<xy) /.yO /.xl <-x-y [[CORRECT DEFINITION OF <] ] 

[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Returns to indicate not found, or what it found. 

] 

: (Ewn) / . w /<nC+w +w E-wn 

[ 

We know that H(Dmega_n) > n - 1883 (see omega2.1). 

Size of this program is 1050 + bits of FAS read + missing bits of Omega. 

Program tries to output this many + 1883 bits of Omega. 

But that would give us a program whose output is more complex 

than the size of the program. Contradiction! 

Thus this program won't find what it is looking for. 

So FAS of complexity N cannot determine > N + 1883 + 1050 bits of Omega, 

i.e., > N + 2933 bits of Omega. 



/="!+v 


L t 


/="?+v 


L *lt 


"? 




,()() 




) 
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] 

[Main Loop: t is depth limit (time), 

b is bits of FAS read so far (buffer) .] 
: (Ltb) 
: V ?t M Ih [Run FAS again . ] 

:s E-v''b'{2933} [Look for an omega with > 

(size of this program + 1883) bits determined.] 
/s Ms [Found it! Merge in undetermined bits, 

output result, and halt.] 
-b*@() [Read another bit of FAS.] 
b [Increase depth/time limit.] 

[Surprise, formal system halts, 
so we do too.] 

[Initially, depth limit 
and no bits read.] 
[end literally] 

-#)„( 

,'(1X0) [Toy formal system with only one theorem.] 
) 

'(0) [Missing bit of omega that is needed.] 

expression (+(+(?0('(! (%)))('(#("('(: (Cw)/.w()/=X+wC-w*lC-w: ( 
Mw)/.w()*/=X+w(§+wM-w: (<xy)/.yO/.xl<-x-y: (Ewn)/.wO/ 
<nC+w+wE-wn: (Ltb) :v?t' !y„b:sE-v-b'{2933}/sMs/=" !+vL 
t-b*@()/="?+vL*ltb"?L() ()))))(-(#('(,' (1X0) )))('(0 
))))))) 

show (: (Cw)/.w()/=X+wC-w*lC-w: (Mw)/.w()*/=X+w@+wM-w: (<x 
y) / . yO/ . xK-x-y : (Ewn) / . wO/<nC+w+wE-wn : (Ltb) : v?t ' ! % 
b:sE-v"b'{2933}/sMs/="!+vLt-b*@()/="?+vL*ltb"?L()( 
)) 

size 150/1050 

value ? 

End of LISP Run 

Elapsed time is seconds. 
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[[[ 

COROLLARY EXTRACTED FROM G0DEL3/4 & 0MEGA2: 
Consider a partial determination of Omega, e.g., 
a lisp expression of the form (lOXOXXXXlO) . 
This stands for the fractional part of Omega, 
and means that these 0,1 bits of Omega are known. 
X stands for an unknown bit. 

Then the complexity H of a partial determination 
of Omega is greater than the number of bits that 
are determined minus 1883 + 175 = 2058. 
H((10X0XXXX10)) > number of bits determined - 2058. 
]]] 

++?0'!yo [ The universal computer U ] 

[ Put together program for U : ] 

~#~' [ Show crucial prefix so that we can size it ] 

" ( [ begin literally ] 

[Merge bits of data into unknown bits of an omega.] 
: (Mw) /.w() * /=X+w@+w M-w 

M!°/„ [Merge in undetermined bits, 
output result, and halt.] 
) [ end literally ] 

' (lOXOXXXXlO) [Partial determination of Omega.] 
) 
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'(11100) [Missing bits of omega that are needed.] 
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show.c 

LISP Interpreter Run 

[[[ 

COROLLARY EXTRACTED FROM G0DEL3/4 & 0MEGA2: 
Consider a partial determination of Omega, e.g., 
a lisp expression of the form (lOXOXXXXlO) . 
This stands for the fractional part of Omega, 
and means that these 0,1 bits of Omega are known. 
X stands for an unknown bit. 

Then the complexity H of a partial determination 
of Omega is greater than the number of bits that 
are determined minus 1883 + 175 = 2058. 
H((10X0XXXX10)) > number of bits determined - 2058. 

]]] 

++?0'!7o [ The universal computer U ] 

[ Put together program for U : ] 

~#~' [ Show crucial prefix so that we can size it ] 

" ( [ begin literally ] 

[Merge bits of data into unknown bits of an omega.] 
: (Mw) /.w() * /=X+w@+w M-w 

MI'/o [Merge in undetermined bits, 
output result, and halt.] 
) [ end literally ] 
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' (lOXOXXXXlO) [Partial determination of Omega.] 
) 

'(11100) [Missing bits of omega that are needed.] 

expression (+(+(?0(' (! (%)))("(#("(' (: (Mw)/.w()*/=X+w@+wM-wM!y, 

))))(-(#(' ('(10X0XXXX10))))(' (11100))))))) 
show (: (Mw)/.w()*/=X+w@+wM-wM!y„) 
size 25/175 
value (1010110010) 

End of LISP Run 

Elapsed time is seconds. 
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/* lisp.c: high-speed LISP interpreter */ 

/* 

The storage required by this interpreter is 8 bytes times 
the symbolic constant SIZE, which is 8 * 16,000,000 = 
128 megabytes. To run this interpreter in small machines, 
reduce the #define SIZE 16000000 below. 

To compile, type 

cc -0 -olisp lisp.c 
To run interactively, type 

lisp 
To run with output on screen, type 

lisp <test.l 
To run with output in file, type 

lisp <test.l >test.r 

Reference: Kernighan & Ritchie, 
The C Programming Language, Second Edition, 
Prentice-Hall, 1988. 
*/ 

#include <stdio.h> 
#include <time.h> 

#define SIZE 16000000 /* numbers of nodes of tree storage */ 
#define LAST_ATOM 128 /* highest integer value of character */ 
#define nil 128 /* null pointer in tree storage */ 
#define question -1 /* error pointer in tree storage */ 
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#define exclamation -2 /* error pointer in tree storage */ 
#define infinity 999999999 /* "infinite" depth limit */ 

/* For very small PC's, change following line to 

make hd & tl unsigned short instead of long: 

(If so, SIZE must be less than 64K.) */ 
long hd[SIZE+l], tl [SIZE+1] ; /* tree storage */ 
long next = nil; /* list of free nodes */ 
long low = LAST_AT0M+1; /* first never-used node */ 
long vlst [LAST_AT0M+1] ; /* bindings of each atom */ 
long tape; /* Turing machine tapes */ 
long display; /* display indicators */ 
long outputs; /* output stacks */ 

long q; /* for converting expressions to binary */ 
long col; /* column in each 50 character chunk of output 

(preceeded by 12 char prefix) */ 
long cc; /* character count */ 

time_t timel; /* clock at start of execution */ 
time_t time2; /* clock at end of execution */ 

long evdong e) ; /* initialize and evaluate expression */ 

void initialize_atoms(void) ; /* initialize atoms */ 

void clean_env(void) ; /* clean environment */ 

void restore_env(void) ; /* restore dirty environment */ 

long evaldong e, long d) ; /* evaluate expression */ 

/* evaluate list of expressions */ 

long evalstdong e, long d) ; 

/* bind values of arguments to formal parameters */ 

void binddong vars, long args) ; 

long at (long x) ; /* atomic predicate */ 

long jndong x, long y) ; /* join head to tail */ 

long pop (long x) ; /* return tl & free node */ 

void frdong x) ; /* free list of nodes */ 

long eqdong x, long y) ; /* equal predicate */ 

long cardinality (long x) ; /* number of elements in list */ 

long appenddong x, long y) ; /* append two lists */ 

/* read one square of Turing machine tape */ 

long getbit(void) ; 

/* read one character from Turing machine tape */ 
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long getchr(void) ; 

/* read expression from Turing machine tape */ 

void putchrdong x) ; /* convert character to binary */ 

void putexpClong x) ; /* convert expression to binary */ 

void putexp2(long x) ; /* convert expression to binary */ 

long out(char *x, long y) ; /* output expression */ 

void out2(long x) ; /* really output expression */ 

void out3(long x) ; /* really really output expression */ 

long chr2(void) ; /* read character - skip blanks, 

tabs and new line characters */ 
long chr(void) ; /* read character - skip comments */ 
long indong mexp, long rparenokay) ; /* input m-exp */ 
long (*pchr) (void) ; /* pointer to chr2 or getchr */ 
long p; /* parens associated with each operator for in() */ 
long pO; /* parens associated with each primitive function */ 
long pi; /* parens associated with each operator */ 

mainO /* lisp main program */ 

{ 

char name_colon[] = "X:"; /* for printing name: def pairs */ 



timel = time(NULL); /* start timer */ 
printf ("lisp.c\n\nLISP Interpreter Run\n"); 
initialize_atoms() ; 
P = nil; 

!' ,nil) ,p) ; 
;' ,nil) ,p) ; 
•',jn('l',nil)),p); 
■',jn('l',nil)),p); 
',jn('l',nil)),p); 
,",jn('l',nil)),p); 
',jn('l',nil)),p); 
',jn('l',nil)),p); 
^',jn('l',nil)),p); 
',jn('l',nil)),p); 
^',jn('l',jn('2',nil))),p) 
:',jn('l',jn('2',nil))),p) 
:',jn('l',jn('2',nil))),p) 
■',jn('l',jn('2',nil))),p) 
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p = jii(jii('/',jii('l',jn('2',jn('3',nil)))),p); 
p = jii(jii(':',jn('l',jn('2',jn('3',nil)))),p); 
p = jii(jii('?',jii('l',jii('2',jn('3',nil)))),p); 
pi = pO = p; 

while (1) { 

long e , f , name , def ; 

printf ("\n"); 

/* read lisp meta-expression from stdin, ) not okay */ 

pchr = chr2; cc = 0; p = pi; e = in(l,0); pi = p; 

/* flush rest of input line */ 

while (putchar(getchar()) != '\n'); 

printf ("\n"); 

f = hd[e] ; 

name = hd[tl[e]]; 

def = hd[tl[tl[e]]] ; 

if (f == '&') { 

/* definition */ 

if (at (name)) { 

/* variable definition, e.g., & x ' (abc) */ 
def = out (" expression" , def ) ; 
def = ev(def ) ; 

y /* end of variable definition */ 

else { 

/* function definition, e.g., & (Fxy) *x*y() */ 
long var_list = tl[name]; 
name = hd[name] ; 
def = jn( '&' , jn(var_list , jn(def ,nil) ) ) ; 

y /* end of function definition */ 

name_colon[0] = name; 

out (name_colon,def ) ; 

/* new binding replaces old */ 

vlst [name] = jn(def,nil); 

continue; 
} /* end of definition */ 
/* write corresponding s-expression */ 
e = outC'expression" ,e) ; 
/* evaluate expression */ 
e = out ( "value " ,ev(e)) ; 
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> 
} 

long evdong e) /* initialize and evaluate expression */ 
{ 

long d = infinity; /* "infinite" depth limit */ 

long v; 

tape = jn(nil,nil); 

display = jn('Y',nil); 

outputs = jn(nil,nil); 

V = eval(e,d) ; 

if (v == question) v = '?'; 

if (v == exclamation) v = ' ! ' ; 

return v; 
> 

void initialize_atoms(void) /* initialize atoms */ 
{ 

long i; 

for (i = 0; i <= LAST_ATOM; ++i) { 

hd[i] = tl [i] = i; /* so that hd & tl of atom = atom */ 

/* initially each atom evaluates to self */ 

vlst [i] = jn(i,nil); 

} 
} 

long jndong x, long y) /* join two lists */ 
{ 

long z; 

/* if y is not a list, then jn is x */ 

if ( y != nil && at(y) ) return x; 

if (next == nil) { 

if (low > SIZE) { 

printf ("Storage overf low!\n") ; 

exit(O) ; 

} 
next = I0W++; 
tl [next] = nil; 
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z = next ; 
next = tl [next] ; 
hd[z] = x; 
tl[z] = y; 

return z; 
} 

long pop (long x) /* return tl & free node */ 
{ 

long y; 

y = tl [x] ; 

tl[x] = next; 

next = x; 

return y; 
} 

void frdong x) /* free list of nodes */ 
{ 

while (x != nil) x = pop(x); 
> 

long at (long x) /* atom predicate */ 
{ 

return ( x <= LAST_ATOM ) ; 
} 

long eqdong x, long y) /* equal predicate */ 
{ 

if (x == y) return 1; 

if (at(x)) return 0; 

if (at(y)) return 0; 

if (eq(hd[x] ,hd[y])) return eq(tl [x] ,tl [y] ) ; 

return 0; 
} 

long evaldong e, long d) /* evaluate expression */ 
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{ 

/* 

e is expression to be evaluated 

d is permitted depth - integer, not pointer to tree storage 
*/ 

long f, V, args, x, y, z, vars, body; 

/* find current binding of atomic expression */ 
if (at(e)) return hd[vlst[e]]; 

f = eval(hd[e] ,d) ; /* evaluate function */ 

e = tl [e] ; /* remove function from list of arguments */ 

if (f < 0) return f ; /* function = error value? */ 

if (f == '\'') return hd[e] ; /* quote */ 

if (f =='/'){/* if then else */ 

V = eval(hd[e] ,d) ; 

e = tl[e] ; 

if (v < 0) return v; /* error? */ 

if (v == '0') e = tl[e] ; 

return eval(hd[e] ,d) ; 

} 

args = evalst(e,d); /* evaluate list of arguments */ 
if (args < 0) return args; /* error? */ 

X = hd[args] ; /* pick up first argument */ 

y = hd[tl [args]] ; /* pick up second argument */ 

z = hd[tl [tl [args]]] ; /* pick up third argument */ 

switch (f) { 

case '®' : {fr(args) ; return getbitO;} 

/* read lisp meta-expression from TM tape, ) not okay */ 
case '°/o' '■ {fr(args) ; pchr = getchr; cc = 1; p = pO; return in(l,0);} 
case '#' : {fr(args) ; 

v = q = jn(nil,nil); putexp(x) ; return pop(v);} 
case '+': {fr(args) ; return hd[x];} 
case '-': {fr(args) ; return tl[x];} 
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case '.': {fr(args) ; return (at(x) ? '1' : '0');} 
case ',': {fr(args) ; hd[outputs] = jn(x,hd [outputs] ) ; 

return (hd[display] == 'Y' ? out ( "display" ,x) : x);} 
case '~': {fr(args) ; return /* out("show", */ x /* ) */ ;} 
case '=' : {fr(args) ; return (eq(x,y) ? '1' : '0');} 
case '*': {fr(args) ; return jn(x,y);} 
case '~': {fr(args) ; 

return append ( (at (x)?nil:x) , (at(y)?nil:y)) ;} 



if (d == 0) {fr(args); return question;} /* depth exceeded 

-> error! */ 
d — ; /* decrement depth */ 

if (f == ' ! ') { 

fr(args) ; 

clean_env() ; /* clean environment */ 

V = eval(x,d) ; 

restore_env() ; /* restore unclean environment */ 

return v; 

} 

if (f == '?') { 

fr(args) ; 

X = cardinality (x) ; /* convert s-exp into number */ 

clean_env() ; 

tape = jn(z,tape); 

display = jn('N' .display) ; 

outputs = jn(nil, outputs) ; 

V = eval(y,(d <= x ? d : x)); 
restore_env() ; 

z = hd [outputs] ; 

tape = pop(tape); 

display = pop (display) ; 

outputs = pop (outputs) ; 

if (v == question) return (d <= x ? question : jn('?',z)); 

if (v == exclamation) return jn(M',z); 

return jn(jn(v,nil) ,z) ; 

} 
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f = tl[f]; 
vars = hd[f] ; 
f = tl[f]; 
body = hd[f] ; 

bind (vars, args) ; 
fr(args) ; 

V = eval(body,d) ; 

/* unbind */ 

while (! at (vars)) { 

if (at (hd [vars])) 

vlst [hd[vars]] = pop ( vlst [hd [vars]] ) ; 

vars = tl [vars] ; 



return v; 
} 

void clean_env(void) /* clean environment */ 
{ 

long i; 

for (i = 0; i <= LAST_ATOM; ++i) 

vlst [i] = jn(i,vlst [i] ) ; /* clean environment */ 
> 

void restore_env(void) /* restore unclean environment */ 
{ 

long i; 

for (i = 0; i <= LAST_ATOM; ++i) 

vlst [i] = pop (vlst [i] ) ; /* restore unclean environment */ 
} 

long cardinality (long x) /* number of elements in list */ 
{ 

if (at(x)) return (x == nil ? : infinity); 

return l+cardinality(tl [x] ) ; 
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/* bind values of arguments to formal parameters */ 

void binddong vars, long args) 

{ 

if (at(vars)) return; 

bind(tl [vars] ,tl [args] ) ; 

if (at (hd [vars])) 

vlst [hd[vars]] = j n(hd [args] ,vlst [hd [vars]] ) ; 
} 

long evalstdong e, long d) /* evaluate list of expressions */ 
{ 

long X, y; 

if (at(e)) return nil; 

X = eval(hd[e] ,d) ; 

if (x < 0) return x; /* error? */ 

y = evalst(tl [e] ,d) ; 

if (y < 0) return y; /* error? */ 

return jn(x,y) ; 
} 

long appenddong x, long y) /* append two lists */ 
{ 

if (at(x)) return y; 

return jn(hd[x] , append (tl [x] ,y)) ; 
} 

/* read one square of Turing machine tape */ 

long getbit(void) 

{ 

long x; 

if (at(hd[tape] )) return exclamation; /* tape finished ! */ 

X = hd[hd[tape]] ; 

hd[tape] = tl [hd[tape]] ; 

return (x == '0' ? '0' : '1'); 
} 

/* read one character from Turing machine tape */ 
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long getchr(void) 
{ 
long c, b, i; 
c = 0; 
do { 

for (i = 0; i < 7; ++i) { 
b = getbit ; 

if (b < 0) return b; /* error? */ 
c=c+c+b- '0'; 
} 
} 
/* keep only non-blank printable ASCII codes */ 
while (c >= 127 I I c <= 32) ; 
return c; 
} 



void putchrdong x) /* convert character to binary */ 
{ 
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void putexpClong x) /* convert expression to binary */ 
{ 

/* remove containing parens at top level ! */ 

while (!at(x)) { 

putexp2 (hd [x] ) ; 

x = tl [x] ; 

} 
} 



void putexp2(long x) /* convert expression to binary */ 
{ 
if ( at(x) && X != nil ) {putchr(x) ; return;} 
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putchrC ('); 

while (!at(x)) { 
putexp2 (hd [x] ) ; 
X = tl [x] ; 
} 

putchrCO ') ; 
} 

long out (char *x, long y) /* output expression */ 
{ 

printf ("%-12s",x); 

col =0; /* so can insert \n and 12 blanks 

every 50 characters of output */ 

cc = -2; /* count characters in m-expression */ 

out2(y); 

printf ("\n") ; 

if (*x == 's' && cc > 0) 

printf ("%-12s%d/%d\n", "size", cc,7*cc) ; 

return y; 
} 

void out2(long x) /* really output expression */ 
{ 

if ( at(x) && x != nil ) {out3(x); return;} 
outSCC); 
while (!at(x)) { 
out2(hd[x]) ; 
X = tl [x] ; 
} 
out3(')'); 
} 

void out3(long x) /* really really output expression */ 
{ 

if (col++ == 50) {printf ("\n%-12s"," "); col = 1;} 

put char (x) ; 

CC++; 
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long chr2(void) /* read character - skip blanks, 

tabs and new line characters */ 
{ 

long c; 
do { 

c = getcharO ; 
if (c == EOF) { 

time2 = time (NULL) ; 
printf ( 

"End of LISP Run\n\nElapsed time is "/.Of seconds. \n", 
dif f time (time2 , timel) 
/* on some systems, above line should instead be: */ 
/* time2 - timel */ 

); 

exit(O); /* terminate execution */ 
} 
putchar(c) ; 
> 
/* keep only non-blank printable ASCII codes */ 
while (c >= 127 I I c <= 32) ; 
return c; 
} 

long chr(void) /* read character - skip comments */ 
{ /* here pchr -> chr2, getchr */ 

long c; 
while (1) { 

c = (*pchr) ; 

if (c < 0) return c; /* error? */ 

if (c != 'I') return c; 
/* comments may be nested */ 

while ((c = chrO) != '] ') 

if (c < 0) return c; /* error? */ 
} 



/* read expression from Turing machine tape */ 
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long in (long mexp, long rparenokay) /* input m-exp */ 
{ 

long c = chr() ; 

if (c < 0) return c; /* error? */ 

CC++; /* bump character count */ 

if (c == ')') if (rparenokay) return ')'; else return nil; 

if (c == '(') { /* explicit list */ 

long first, last, next; 

first = last = jn(nil,nil); 

while ((next = in(mexp,l)) != 

{ 

if (next < 0) return next; /* error? */ 

last = tl[last] = jn(next ,nil) ; 

} 

return pop (first); 

} 
if (!mexp) return c; /* atom */ 
if (c == '{') { /* number */ 

long n = 0, u; 

while ((c = chrO) != '}') { 

if (c < 0) return c; /* error? */ 

c = c - '0' ; 

if (c >= && c <= 9) n = 10 * n + c; 

} 

for (u = nil; n > 0; n — ) u = jn('l',u); 

return u; 

} 
if (c == "") return in(0,0); /* s-exp */ 
if (c == '&' && cc == 1) { 
/* expand "define" only if & is first character */ 

long name, def ; 

name = in(0,0); if (name < 0) return name; /* error? */ 

p = jn(name,p) ; 

def = in(l,0); if (def < 0) return def ; /* error? */ 

return jn('&' , jn (name, jn (def , nil))) ; 

} 
if (c == ':') { /* expand "let" */ 

long name, def, body; 

name = in (0,0); if (name < 0) return name; /* error? */ 
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p = jn(iiame,p) ; 

def = in(l,0); if (def < 0) return def ; /* error? */ 

body = in (1,0); if (body < 0) return body; /* error? */ 

p = pop(p) ; 

if (! at (name)) { 

long var_list; 

var_list = tlCname]; 

name = hd[name] ; 

def = 

jn('\' ' , jn(jn('&' , jn(var_list , jn(def ,nil))) ,nil)) ; 

} 
return 
jn( 
jn('\' ' , jn(jn('&' , jn(jn(name,nil) , jn(body,nil))) ,nil)) , 
jn(def ,nil) 

); 

} 

{long p2; 
for (p2 = p; !at(p2); p2 = tl[p2]) { 
long p3 = hd[p2] ; 
if (p3 == c) return c; 
if (hd[p3] == c) { 

long first, last, next; 
first = last = jn(c,nil); 
for (p3 = tl[p3]; !at(p3); p3 = tl[p3]) { 
next = in(l,0) ; 

if (next < 0) return next ; /* error? */ 
last = tl [last] = jn(next ,nil) ; 
> 
return first; 
} 
} 
return c; 
> 
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/* show.c: high-speed LISP interpreter */ 

/* 

The storage required by this interpreter is 8 bytes times 
the symbolic constant SIZE, which is 8 * 16,000,000 = 
128 megabytes. To run this interpreter in small machines, 
reduce the #define SIZE 16000000 below. 

To compile, type 

cc -0 -oshow show.c 
To run interactively, type 

show 
To run with output on screen, type 

show <test.l 
To run with output in file, type 

show <test.l >test.r 

Reference: Kernighan & Ritchie, 
The C Programming Language, Second Edition, 
Prentice-Hall, 1988. 
*/ 

#include <stdio.h> 
#include <time.h> 

#define SIZE 16000000 /* numbers of nodes of tree storage */ 
#define LAST_ATOM 128 /* highest integer value of character */ 
#define nil 128 /* null pointer in tree storage */ 
#define question -1 /* error pointer in tree storage */ 
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#define exclamation -2 /* error pointer in tree storage */ 
#define infinity 999999999 /* "infinite" depth limit */ 

/* For very small PC's, change following line to 

make hd & tl unsigned short instead of long: 

(If so, SIZE must be less than 64K.) */ 
long hd[SIZE+l], tl [SIZE+1] ; /* tree storage */ 
long next = nil; /* list of free nodes */ 
long low = LAST_AT0M+1; /* first never-used node */ 
long vlst [LAST_AT0M+1] ; /* bindings of each atom */ 
long tape; /* Turing machine tapes */ 
long display; /* display indicators */ 
long outputs; /* output stacks */ 

long q; /* for converting expressions to binary */ 
long col; /* column in each 50 character chunk of output 

(preceeded by 12 char prefix) */ 
long cc; /* character count */ 

time_t timel; /* clock at start of execution */ 
time_t time2; /* clock at end of execution */ 

long evdong e) ; /* initialize and evaluate expression */ 

void initialize_atoms(void) ; /* initialize atoms */ 

void clean_env(void) ; /* clean environment */ 

void restore_env(void) ; /* restore dirty environment */ 

long evaldong e, long d) ; /* evaluate expression */ 

/* evaluate list of expressions */ 

long evalstdong e, long d) ; 

/* bind values of arguments to formal parameters */ 

void binddong vars, long args) ; 

long at (long x) ; /* atomic predicate */ 

long jndong x, long y) ; /* join head to tail */ 

long pop (long x) ; /* return tl & free node */ 

void frdong x) ; /* free list of nodes */ 

long eqdong x, long y) ; /* equal predicate */ 

long cardinality (long x) ; /* number of elements in list */ 

long appenddong x, long y) ; /* append two lists */ 

/* read one square of Turing machine tape */ 

long getbit(void) ; 

/* read one character from Turing machine tape */ 
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long getchr(void) ; 

/* read expression from Turing machine tape */ 

void putchrdong x) ; /* convert character to binary */ 

void putexpClong x) ; /* convert expression to binary */ 

void putexp2(long x) ; /* convert expression to binary */ 

long out(char *x, long y) ; /* output expression */ 

void out2(long x) ; /* really output expression */ 

void out3(long x) ; /* really really output expression */ 

long chr2(void) ; /* read character - skip blanks, 

tabs and new line characters */ 
long chr(void) ; /* read character - skip comments */ 
long indong mexp, long rparenokay) ; /* input m-exp */ 
long (*pchr) (void) ; /* pointer to chr2 or getchr */ 
long p; /* parens associated with each operator for in() */ 
long pO; /* parens associated with each primitive function */ 
long pi; /* parens associated with each operator */ 

mainO /* lisp main program */ 

{ 

char name_colon[] = "X:"; /* for printing name: def pairs */ 



timel = time(NULL); /* start timer */ 
printf ("show.c\n\nLISP Interpreter Run\n"); 
initialize_atoms() ; 
~ = nil; 

,nil) ,p) ; 

,nil) ,p) ; 

,jn('l',nil)),p); 
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p = jii(jii('/',jii('l',jn('2',jn('3',nil)))),p); 
p = jii(jii(':',jn('l',jn('2',jn('3',nil)))),p); 
p = jii(jii('?',jii('l',jii('2',jn('3',nil)))),p); 
pi = pO = p; 

while (1) { 

long e , f , name , def ; 

printf ("\n"); 

/* read lisp meta-expression from stdin, ) not okay */ 

pchr = chr2; cc = 0; p = pi; e = in(l,0); pi = p; 

/* flush rest of input line */ 

while (putchar(getchar()) != '\n'); 

printf ("\n"); 

f = hd[e] ; 

name = hd[tl[e]]; 

def = hd[tl[tl[e]]] ; 

if (f == '&') { 

/* definition */ 

if (at (name)) { 

/* variable definition, e.g., & x ' (abc) */ 
def = out (" expression" , def ) ; 
def = ev(def ) ; 

y /* end of variable definition */ 

else { 

/* function definition, e.g., & (Fxy) *x*y() */ 
long var_list = tl[name]; 
name = hd[name] ; 
def = jn( '&' , jn(var_list , jn(def ,nil) ) ) ; 

y /* end of function definition */ 

name_colon[0] = name; 

out (name_colon,def ) ; 

/* new binding replaces old */ 

vlst [name] = jn(def,nil); 

continue; 
} /* end of definition */ 
/* write corresponding s-expression */ 
e = outC'expression" ,e) ; 
/* evaluate expression */ 
e = out ( "value " ,ev(e)) ; 
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> 
} 

long evdong e) /* initialize and evaluate expression */ 
{ 

long d = infinity; /* "infinite" depth limit */ 

long v; 

tape = jn(nil,nil); 

display = jn('Y',nil); 

outputs = jn(nil,nil); 

V = eval(e,d) ; 

if (v == question) v = '?'; 

if (v == exclamation) v = ' ! ' ; 

return v; 
> 

void initialize_atoms(void) /* initialize atoms */ 
{ 

long i; 

for (i = 0; i <= LAST_ATOM; ++i) { 

hd[i] = tl [i] = i; /* so that hd & tl of atom = atom */ 

/* initially each atom evaluates to self */ 

vlst [i] = jn(i,nil); 

} 
} 

long jndong x, long y) /* join two lists */ 
{ 

long z; 

/* if y is not a list, then jn is x */ 

if ( y != nil && at(y) ) return x; 

if (next == nil) { 

if (low > SIZE) { 

printf ("Storage overf low!\n") ; 

exit(O) ; 

} 
next = I0W++; 
tl [next] = nil; 
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z = next ; 
next = tl [next] ; 
hd[z] = x; 
tl[z] = y; 

return z; 
} 

long pop (long x) /* return tl & free node */ 
{ 

long y; 

y = tl [x] ; 

tl[x] = next; 

next = x; 

return y; 
} 

void frdong x) /* free list of nodes */ 
{ 

while (x != nil) x = pop(x); 
> 

long at (long x) /* atom predicate */ 
{ 

return ( x <= LAST_ATOM ) ; 
} 

long eqdong x, long y) /* equal predicate */ 
{ 

if (x == y) return 1; 

if (at(x)) return 0; 

if (at(y)) return 0; 

if (eq(hd[x] ,hd[y])) return eq(tl [x] ,tl [y] ) ; 

return 0; 
} 

long evaldong e, long d) /* evaluate expression */ 
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{ 

/* 

e is expression to be evaluated 

d is permitted depth - integer, not pointer to tree storage 
*/ 

long f, V, args, x, y, z, vars, body; 

/* find current binding of atomic expression */ 
if (at(e)) return hd[vlst[e]]; 

f = eval(hd[e] ,d) ; /* evaluate function */ 

e = tl [e] ; /* remove function from list of arguments */ 

if (f < 0) return f ; /* function = error value? */ 

if (f == '\'') return hd[e] ; /* quote */ 

if (f =='/'){/* if then else */ 

V = eval(hd[e] ,d) ; 

e = tl[e] ; 

if (v < 0) return v; /* error? */ 

if (v == '0') e = tl[e] ; 

return eval(hd[e] ,d) ; 

} 

args = evalst(e,d); /* evaluate list of arguments */ 
if (args < 0) return args; /* error? */ 

X = hd[args] ; /* pick up first argument */ 

y = hd[tl [args]] ; /* pick up second argument */ 

z = hd[tl [tl [args]]] ; /* pick up third argument */ 

switch (f) { 

case '®' : {fr(args) ; return getbitO;} 

/* read lisp meta-expression from TM tape, ) not okay */ 
case '°/o' '■ {fr(args) ; pchr = getchr; cc = 1; p = pO; return in(l,0);} 
case '#' : {fr(args) ; 

v = q = jn(nil,nil); putexp(x) ; return pop(v);} 
case '+': {fr(args) ; return hd[x];} 
case '-': {fr(args) ; return tl[x];} 
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case '.': {fr(args) ; return (at(x) ? '1' : '0');} 
case ',': {fr(args) ; hd[outputs] = jn(x,hd [outputs] ) ; 

return (hd[display] == 'Y' ? out ( "display" ,x) : x);} 
case '~': {fr(args) ; return /* */ out ("show", /* */ x /* */ ) /* */ 
case '=' : {fr(args) ; return (eq(x,y) ? '1' : '0');} 
case '*': {fr(args) ; return jn(x,y);} 
case '~': {fr(args) ; 

return append ( (at (x)?nil:x) , (at(y)?nil:y)) ;} 



if (d == 0) {fr(args); return question;} /* depth exceeded 

-> error! */ 
d — ; /* decrement depth */ 

if (f == ' ! ') { 

fr(args) ; 

clean_env() ; /* clean environment */ 

V = eval(x,d) ; 

restore_env() ; /* restore unclean environment */ 

return v; 

} 

if (f == '?') { 

fr(args) ; 

X = cardinality (x) ; /* convert s-exp into number */ 

clean_env() ; 

tape = jn(z,tape); 

display = jn('N' .display) ; 

outputs = jn(nil, outputs) ; 

V = eval(y,(d <= x ? d : x)); 
restore_env() ; 

z = hd [outputs] ; 

tape = pop(tape); 

display = pop (display) ; 

outputs = pop (outputs) ; 

if (v == question) return (d <= x ? question : jn('?',z)); 

if (v == exclamation) return jn(M',z); 

return jn(jn(v,nil) ,z) ; 

} 
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f = tl[f]; 
vars = hd[f] ; 
f = tl[f]; 
body = hd[f] ; 

bind (vars, args) ; 
fr(args) ; 

V = eval(body,d) ; 

/* unbind */ 

while (! at (vars)) { 

if (at (hd [vars])) 

vlst [hd[vars]] = pop ( vlst [hd [vars]] ) ; 

vars = tl [vars] ; 



return v; 
} 

void clean_env(void) /* clean environment */ 
{ 

long i; 

for (i = 0; i <= LAST_ATOM; ++i) 

vlst [i] = jn(i,vlst [i] ) ; /* clean environment */ 
> 

void restore_env(void) /* restore unclean environment */ 
{ 

long i; 

for (i = 0; i <= LAST_ATOM; ++i) 

vlst [i] = pop (vlst [i] ) ; /* restore unclean environment */ 
} 

long cardinality (long x) /* number of elements in list */ 
{ 

if (at(x)) return (x == nil ? : infinity); 

return l+cardinality(tl [x] ) ; 
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/* bind values of arguments to formal parameters */ 

void binddong vars, long args) 

{ 

if (at(vars)) return; 

bind(tl [vars] ,tl [args] ) ; 

if (at (hd [vars])) 

vlst [hd[vars]] = j n(hd [args] ,vlst [hd [vars]] ) ; 
} 

long evalstdong e, long d) /* evaluate list of expressions */ 
{ 

long X, y; 

if (at(e)) return nil; 

X = eval(hd[e] ,d) ; 

if (x < 0) return x; /* error? */ 

y = evalst(tl [e] ,d) ; 

if (y < 0) return y; /* error? */ 

return jn(x,y) ; 
} 

long appenddong x, long y) /* append two lists */ 
{ 

if (at(x)) return y; 

return jn(hd[x] , append (tl [x] ,y)) ; 
} 

/* read one square of Turing machine tape */ 

long getbit(void) 

{ 

long x; 

if (at(hd[tape] )) return exclamation; /* tape finished ! */ 

X = hd[hd[tape]] ; 

hd[tape] = tl [hd[tape]] ; 

return (x == '0' ? '0' : '1'); 
} 

/* read one character from Turing machine tape */ 
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long getchr(void) 
{ 
long c, b, i; 
c = 0; 
do { 

for (i = 0; i < 7; ++i) { 
b = getbit ; 

if (b < 0) return b; /* error? */ 
c=c+c+b- '0'; 
} 
} 
/* keep only non-blank printable ASCII codes */ 
while (c >= 127 I I c <= 32) ; 
return c; 
} 



void putchrdong x) /* convert character to binary */ 
{ 
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void putexpClong x) /* convert expression to binary */ 
{ 

/* remove containing parens at top level ! */ 

while (!at(x)) { 

putexp2 (hd [x] ) ; 

x = tl [x] ; 

} 
} 



void putexp2(long x) /* convert expression to binary */ 
{ 
if ( at(x) && X != nil ) {putchr(x) ; return;} 
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putchrC ('); 

while (!at(x)) { 
putexp2 (hd [x] ) ; 
X = tl [x] ; 
} 

putchrCO ') ; 
} 

long out (char *x, long y) /* output expression */ 
{ 

printf ("%-12s",x); 

col =0; /* so can insert \n and 12 blanks 

every 50 characters of output */ 

cc = -2; /* count characters in m-expression */ 

out2(y); 

printf ("\n") ; 

if (*x == 's' && cc > 0) 

printf ("%-12s%d/%d\n", "size", cc,7*cc) ; 

return y; 
} 

void out2(long x) /* really output expression */ 
{ 

if ( at(x) && x != nil ) {out3(x); return;} 
outSCC); 
while (!at(x)) { 
out2(hd[x]) ; 
X = tl [x] ; 
} 
out3(')'); 
} 

void out3(long x) /* really really output expression */ 
{ 

if (col++ == 50) {printf ("\n%-12s"," "); col = 1;} 

put char (x) ; 

CC++; 



show.c 201 



long chr2(void) /* read character - skip blanks, 

tabs and new line characters */ 
{ 

long c; 
do { 

c = getcharO ; 
if (c == EOF) { 

time2 = time (NULL) ; 
printf ( 

"End of LISP Run\n\nElapsed time is "/.Of seconds. \n", 
dif f time (time2 , timel) 
/* on some systems, above line should instead be: */ 
/* time2 - timel */ 

); 

exit(O); /* terminate execution */ 
} 
putchar(c) ; 
> 
/* keep only non-blank printable ASCII codes */ 
while (c >= 127 I I c <= 32) ; 
return c; 
} 

long chr(void) /* read character - skip comments */ 
{ /* here pchr -> chr2, getchr */ 

long c; 
while (1) { 

c = (*pchr) ; 

if (c < 0) return c; /* error? */ 

if (c != 'I') return c; 
/* comments may be nested */ 

while ((c = chrO) != '] ') 

if (c < 0) return c; /* error? */ 
} 



/* read expression from Turing machine tape */ 
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long in (long mexp, long rparenokay) /* input m-exp */ 
{ 

long c = chr() ; 

if (c < 0) return c; /* error? */ 

CC++; /* bump character count */ 

if (c == ')') if (rparenokay) return ')'; else return nil; 

if (c == '(') { /* explicit list */ 

long first, last, next; 

first = last = jn(nil,nil); 

while ((next = in(mexp,l)) != 

{ 

if (next < 0) return next; /* error? */ 

last = tl[last] = jn(next ,nil) ; 

} 

return pop (first); 

} 
if (!mexp) return c; /* atom */ 
if (c == '{') { /* number */ 

long n = 0, u; 

while ((c = chrO) != '}') { 

if (c < 0) return c; /* error? */ 

c = c - '0' ; 

if (c >= && c <= 9) n = 10 * n + c; 

} 

for (u = nil; n > 0; n — ) u = jn('l',u); 

return u; 

} 
if (c == "") return in(0,0); /* s-exp */ 
if (c == '&' && cc == 1) { 
/* expand "define" only if & is first character */ 

long name, def ; 

name = in(0,0); if (name < 0) return name; /* error? */ 

p = jn(name,p) ; 

def = in(l,0); if (def < 0) return def ; /* error? */ 

return jn('&' , jn (name, jn (def , nil))) ; 

} 
if (c == ':') { /* expand "let" */ 

long name, def, body; 

name = in (0,0); if (name < 0) return name; /* error? */ 
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p = jn(iiame,p) ; 

def = in(l,0); if (def < 0) return def ; /* error? */ 

body = in (1,0); if (body < 0) return body; /* error? */ 

p = pop(p) ; 

if (! at (name)) { 

long var_list; 

var_list = tlCname]; 

name = hd[name] ; 

def = 

jn('\' ' , jn(jn('&' , jn(var_list , jn(def ,nil))) ,nil)) ; 

} 
return 
jn( 
jn('\' ' , jn(jn('&' , jn(jn(name,nil) , jn(body,nil))) ,nil)) , 
jn(def ,nil) 

); 

} 

{long p2; 
for (p2 = p; !at(p2); p2 = tl[p2]) { 
long p3 = hd[p2] ; 
if (p3 == c) return c; 
if (hd[p3] == c) { 

long first, last, next; 
first = last = jn(c,nil); 
for (p3 = tl[p3]; !at(p3); p3 = tl[p3]) { 
next = in(l,0) ; 

if (next < 0) return next ; /* error? */ 
last = tl [last] = jn(next ,nil) ; 
> 
return first; 
} 
} 
return c; 
> 
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/* big.c: high-speed LISP interpreter */ 

/* 

The storage required by this interpreter is 8 bytes times 
the symbolic constant SIZE, which is 8 * 64,000,000 = 
512 megabytes. To run this interpreter in small machines, 
reduce the #define SIZE 64000000 below. 

To compile, type 

cc -0 -obig -bmaxdata: 0x40000000 big.c 
To run interactively, type 

big 
To run with output on screen, type 

big <test.l 
To run with output in file, type 

big <test.l >test.r 

Reference: Kernighan & Ritchie, 
The C Programming Language, Second Edition, 
Prentice-Hall, 1988. 
*/ 

#include <stdio.h> 
#include <time.h> 

#define SIZE 64000000 /* numbers of nodes of tree storage */ 
#define LAST_ATOM 128 /* highest integer value of character */ 
#define nil 128 /* null pointer in tree storage */ 
#define question -1 /* error pointer in tree storage */ 
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#define exclamation -2 /* error pointer in tree storage */ 
#define infinity 999999999 /* "infinite" depth limit */ 

/* For very small PC's, change following line to 

make hd & tl unsigned short instead of long: 

(If so, SIZE must be less than 64K.) */ 
long hd[SIZE+l], tl [SIZE+1] ; /* tree storage */ 
long next = nil; /* list of free nodes */ 
long low = LAST_AT0M+1; /* first never-used node */ 
long vlst [LAST_AT0M+1] ; /* bindings of each atom */ 
long tape; /* Turing machine tapes */ 
long display; /* display indicators */ 
long outputs; /* output stacks */ 

long q; /* for converting expressions to binary */ 
long col; /* column in each 50 character chunk of output 

(preceeded by 12 char prefix) */ 
long cc; /* character count */ 

time_t timel; /* clock at start of execution */ 
time_t time2; /* clock at end of execution */ 

long evdong e) ; /* initialize and evaluate expression */ 

void initialize_atoms(void) ; /* initialize atoms */ 

void clean_env(void) ; /* clean environment */ 

void restore_env(void) ; /* restore dirty environment */ 

long evaldong e, long d) ; /* evaluate expression */ 

/* evaluate list of expressions */ 

long evalstdong e, long d) ; 

/* bind values of arguments to formal parameters */ 

void binddong vars, long args) ; 

long at (long x) ; /* atomic predicate */ 

long jndong x, long y) ; /* join head to tail */ 

long pop (long x) ; /* return tl & free node */ 

void frdong x) ; /* free list of nodes */ 

long eqdong x, long y) ; /* equal predicate */ 

long cardinality (long x) ; /* number of elements in list */ 

long appenddong x, long y) ; /* append two lists */ 

/* read one square of Turing machine tape */ 

long getbit(void) ; 

/* read one character from Turing machine tape */ 
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long getchr(void) ; 

/* read expression from Turing machine tape */ 

void putchrdong x) ; /* convert character to binary */ 

void putexpClong x) ; /* convert expression to binary */ 

void putexp2(long x) ; /* convert expression to binary */ 

long out(char *x, long y) ; /* output expression */ 

void out2(long x) ; /* really output expression */ 

void out3(long x) ; /* really really output expression */ 

long chr2(void) ; /* read character - skip blanks, 

tabs and new line characters */ 
long chr(void) ; /* read character - skip comments */ 
long indong mexp, long rparenokay) ; /* input m-exp */ 
long (*pchr) (void) ; /* pointer to chr2 or getchr */ 
long p; /* parens associated with each operator for in() */ 
long pO; /* parens associated with each primitive function */ 
long pi; /* parens associated with each operator */ 

mainO /* lisp main program */ 

{ 

char name_colon[] = "X:"; /* for printing name: def pairs */ 



timel = time(NULL); /* start timer */ 
printf ("big.c\n\nLISP Interpreter Run\n") ; 
initialize_atoms() ; 
P = nil; 

!' ,nil) ,p) ; 
;' ,nil) ,p) ; 
•',jn('l',nil)),p); 
■',jn('l',nil)),p); 
',jn('l',nil)),p); 
,",jn('l',nil)),p); 
',jn('l',nil)),p); 
',jn('l',nil)),p); 
^',jn('l',nil)),p); 
',jn('l',nil)),p); 
^',jn('l',jn('2',nil))),p) 
:',jn('l',jn('2',nil))),p) 
:',jn('l',jn('2',nil))),p) 
■',jn('l',jn('2',nil))),p) 
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p = jii(jii('/',jii('l',jn('2',jn('3',nil)))),p); 
p = jii(jii(':',jn('l',jn('2',jn('3',nil)))),p); 
p = jii(jii('?',jii('l',jii('2',jn('3',nil)))),p); 
pi = pO = p; 

while (1) { 

long e , f , name , def ; 

printf ("\n"); 

/* read lisp meta-expression from stdin, ) not okay */ 

pchr = chr2; cc = 0; p = pi; e = in(l,0); pi = p; 

/* flush rest of input line */ 

while (putchar(getchar()) != '\n'); 

printf ("\n"); 

f = hd[e] ; 

name = hd[tl[e]]; 

def = hd[tl[tl[e]]] ; 

if (f == '&') { 

/* definition */ 

if (at (name)) { 

/* variable definition, e.g., & x ' (abc) */ 
def = out (" expression" , def ) ; 
def = ev(def ) ; 

y /* end of variable definition */ 

else { 

/* function definition, e.g., & (Fxy) *x*y() */ 
long var_list = tl[name]; 
name = hd[name] ; 
def = jn( '&' , jn(var_list , jn(def ,nil) ) ) ; 

y /* end of function definition */ 

name_colon[0] = name; 

out (name_colon,def ) ; 

/* new binding replaces old */ 

vlst [name] = jn(def,nil); 

continue; 
} /* end of definition */ 
/* write corresponding s-expression */ 
e = outC'expression" ,e) ; 
/* evaluate expression */ 
e = out ( "value " ,ev(e)) ; 
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> 
} 

long evdong e) /* initialize and evaluate expression */ 
{ 

long d = infinity; /* "infinite" depth limit */ 

long v; 

tape = jn(nil,nil); 

display = jn('Y',nil); 

outputs = jn(nil,nil); 

V = eval(e,d) ; 

if (v == question) v = '?'; 

if (v == exclamation) v = ' ! ' ; 

return v; 
> 

void initialize_atoms(void) /* initialize atoms */ 
{ 

long i; 

for (i = 0; i <= LAST_ATOM; ++i) { 

hd[i] = tl [i] = i; /* so that hd & tl of atom = atom */ 

/* initially each atom evaluates to self */ 

vlst [i] = jn(i,nil); 

} 
} 

long jndong x, long y) /* join two lists */ 
{ 

long z; 

/* if y is not a list, then jn is x */ 

if ( y != nil && at(y) ) return x; 

if (next == nil) { 

if (low > SIZE) { 

printf ("Storage overf low!\n") ; 

exit(O) ; 

} 
next = I0W++; 
tl [next] = nil; 
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z = next ; 
next = tl [next] ; 
hd[z] = x; 
tl[z] = y; 

return z; 
} 

long pop (long x) /* return tl & free node */ 
{ 

long y; 

y = tl [x] ; 

tl[x] = next; 

next = x; 

return y; 
} 

void frdong x) /* free list of nodes */ 
{ 

while (x != nil) x = pop(x); 
> 

long at (long x) /* atom predicate */ 
{ 

return ( x <= LAST_ATOM ) ; 
} 

long eqdong x, long y) /* equal predicate */ 
{ 

if (x == y) return 1; 

if (at(x)) return 0; 

if (at(y)) return 0; 

if (eq(hd[x] ,hd[y])) return eq(tl [x] ,tl [y] ) ; 

return 0; 
} 

long evaldong e, long d) /* evaluate expression */ 
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{ 

/* 

e is expression to be evaluated 

d is permitted depth - integer, not pointer to tree storage 
*/ 

long f, V, args, x, y, z, vars, body; 

/* find current binding of atomic expression */ 
if (at(e)) return hd[vlst[e]]; 

f = eval(hd[e] ,d) ; /* evaluate function */ 

e = tl [e] ; /* remove function from list of arguments */ 

if (f < 0) return f ; /* function = error value? */ 

if (f == '\'') return hd[e] ; /* quote */ 

if (f =='/'){/* if then else */ 

V = eval(hd[e] ,d) ; 

e = tl[e] ; 

if (v < 0) return v; /* error? */ 

if (v == '0') e = tl[e] ; 

return eval(hd[e] ,d) ; 

} 

args = evalst(e,d); /* evaluate list of arguments */ 
if (args < 0) return args; /* error? */ 

X = hd[args] ; /* pick up first argument */ 

y = hd[tl [args]] ; /* pick up second argument */ 

z = hd[tl [tl [args]]] ; /* pick up third argument */ 

switch (f) { 

case '®' : {fr(args) ; return getbitO;} 

/* read lisp meta-expression from TM tape, ) not okay */ 
case '°/o' '■ {fr(args) ; pchr = getchr; cc = 1; p = pO; return in(l,0);} 
case '#' : {fr(args) ; 

v = q = jn(nil,nil); putexp(x) ; return pop(v);} 
case '+': {fr(args) ; return hd[x];} 
case '-': {fr(args) ; return tl[x];} 
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case '.': {fr(args) ; return (at(x) ? '1' : '0');} 
case ',': {fr(args) ; hd[outputs] = jn(x,hd [outputs] ) ; 

return (hd[display] == 'Y' ? out ( "display" ,x) : x);} 
case '~': {fr(args) ; return /* out("show", */ x /* ) */ ;} 
case '=' : {fr(args) ; return (eq(x,y) ? '1' : '0');} 
case '*': {fr(args) ; return jn(x,y);} 
case '~': {fr(args) ; 

return append ( (at (x)?nil:x) , (at(y)?nil:y)) ;} 



if (d == 0) {fr(args); return question;} /* depth exceeded 

-> error! */ 
d — ; /* decrement depth */ 

if (f == ' ! ') { 

fr(args) ; 

clean_env() ; /* clean environment */ 

V = eval(x,d) ; 

restore_env() ; /* restore unclean environment */ 

return v; 

} 

if (f == '?') { 

fr(args) ; 

X = cardinality (x) ; /* convert s-exp into number */ 

clean_env() ; 

tape = jn(z,tape); 

display = jn('N' .display) ; 

outputs = jn(nil, outputs) ; 

V = eval(y,(d <= x ? d : x)); 
restore_env() ; 

z = hd [outputs] ; 

tape = pop(tape); 

display = pop (display) ; 

outputs = pop (outputs) ; 

if (v == question) return (d <= x ? question : jn('?',z)); 

if (v == exclamation) return jn(M',z); 

return jn(jn(v,nil) ,z) ; 

} 
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f = tl[f]; 
vars = hd[f] ; 
f = tl[f]; 
body = hd[f] ; 

bind (vars, args) ; 
fr(args) ; 

V = eval(body,d) ; 

/* unbind */ 

while (! at (vars)) { 

if (at (hd [vars])) 

vlst [hd[vars]] = pop ( vlst [hd [vars]] ) ; 

vars = tl [vars] ; 



return v; 
} 

void clean_env(void) /* clean environment */ 
{ 

long i; 

for (i = 0; i <= LAST_ATOM; ++i) 

vlst [i] = jn(i,vlst [i] ) ; /* clean environment */ 
> 

void restore_env(void) /* restore unclean environment */ 
{ 

long i; 

for (i = 0; i <= LAST_ATOM; ++i) 

vlst [i] = pop (vlst [i] ) ; /* restore unclean environment */ 
} 

long cardinality (long x) /* number of elements in list */ 
{ 

if (at(x)) return (x == nil ? : infinity); 

return l+cardinality(tl [x] ) ; 
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/* bind values of arguments to formal parameters */ 

void binddong vars, long args) 

{ 

if (at(vars)) return; 

bind(tl [vars] ,tl [args] ) ; 

if (at (hd [vars])) 

vlst [hd[vars]] = j n(hd [args] ,vlst [hd [vars]] ) ; 
} 

long evalstdong e, long d) /* evaluate list of expressions */ 
{ 

long X, y; 

if (at(e)) return nil; 

X = eval(hd[e] ,d) ; 

if (x < 0) return x; /* error? */ 

y = evalst(tl [e] ,d) ; 

if (y < 0) return y; /* error? */ 

return jn(x,y) ; 
} 

long appenddong x, long y) /* append two lists */ 
{ 

if (at(x)) return y; 

return jn(hd[x] , append (tl [x] ,y)) ; 
} 

/* read one square of Turing machine tape */ 

long getbit(void) 

{ 

long x; 

if (at(hd[tape] )) return exclamation; /* tape finished ! */ 

X = hd[hd[tape]] ; 

hd[tape] = tl [hd[tape]] ; 

return (x == '0' ? '0' : '1'); 
} 

/* read one character from Turing machine tape */ 
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long getchr(void) 
{ 
long c, b, i; 
c = 0; 
do { 

for (i = 0; i < 7; ++i) { 
b = getbit ; 

if (b < 0) return b; /* error? */ 
c=c+c+b- '0'; 
} 
} 
/* keep only non-blank printable ASCII codes */ 
while (c >= 127 I I c <= 32) ; 
return c; 
} 



void putchrdong x) /* convert character to binary */ 
{ 
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void putexpClong x) /* convert expression to binary */ 
{ 

/* remove containing parens at top level ! */ 

while (!at(x)) { 

putexp2 (hd [x] ) ; 

x = tl [x] ; 

} 
} 



void putexp2(long x) /* convert expression to binary */ 
{ 
if ( at(x) && X != nil ) {putchr(x) ; return;} 
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putchrC ('); 

while (!at(x)) { 
putexp2 (hd [x] ) ; 
X = tl [x] ; 
} 

putchrCO ') ; 
} 

long out (char *x, long y) /* output expression */ 
{ 

printf ("%-12s",x); 

col =0; /* so can insert \n and 12 blanks 

every 50 characters of output */ 

cc = -2; /* count characters in m-expression */ 

out2(y); 

printf ("\n") ; 

if (*x == 's' && cc > 0) 

printf ("%-12s%d/%d\n", "size", cc,7*cc) ; 

return y; 
} 

void out2(long x) /* really output expression */ 
{ 

if ( at(x) && x != nil ) {out3(x); return;} 
outSCC); 
while (!at(x)) { 
out2(hd[x]) ; 
X = tl [x] ; 
} 
out3(')'); 
} 

void out3(long x) /* really really output expression */ 
{ 

if (col++ == 50) {printf ("\n%-12s"," "); col = 1;} 

put char (x) ; 

CC++; 
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long chr2(void) /* read character - skip blanks, 

tabs and new line characters */ 
{ 

long c; 
do { 

c = getcharO ; 
if (c == EOF) { 

time2 = time (NULL) ; 
printf ( 

"End of LISP Run\n\nElapsed time is "/.Of seconds. \n", 
dif f time (time2 , timel) 
/* on some systems, above line should instead be: */ 
/* time2 - timel */ 

); 

exit(O); /* terminate execution */ 
} 
putchar(c) ; 
> 
/* keep only non-blank printable ASCII codes */ 
while (c >= 127 I I c <= 32) ; 
return c; 
} 

long chr(void) /* read character - skip comments */ 
{ /* here pchr -> chr2, getchr */ 

long c; 
while (1) { 

c = (*pchr) ; 

if (c < 0) return c; /* error? */ 

if (c != 'I') return c; 
/* comments may be nested */ 

while ((c = chrO) != '] ') 

if (c < 0) return c; /* error? */ 
} 



/* read expression from Turing machine tape */ 
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long in (long mexp, long rparenokay) /* input m-exp */ 
{ 

long c = chr() ; 

if (c < 0) return c; /* error? */ 

CC++; /* bump character count */ 

if (c == ')') if (rparenokay) return ')'; else return nil; 

if (c == '(') { /* explicit list */ 

long first, last, next; 

first = last = jn(nil,nil); 

while ((next = in(mexp,l)) != 

{ 

if (next < 0) return next; /* error? */ 

last = tl[last] = jn(next ,nil) ; 

} 

return pop (first); 

} 
if (!mexp) return c; /* atom */ 
if (c == '{') { /* number */ 

long n = 0, u; 

while ((c = chrO) != '}') { 

if (c < 0) return c; /* error? */ 

c = c - '0' ; 

if (c >= && c <= 9) n = 10 * n + c; 

} 

for (u = nil; n > 0; n — ) u = jn('l',u); 

return u; 

} 
if (c == "") return in(0,0); /* s-exp */ 
if (c == '&' && cc == 1) { 
/* expand "define" only if & is first character */ 

long name, def ; 

name = in(0,0); if (name < 0) return name; /* error? */ 

p = jn(name,p) ; 

def = in(l,0); if (def < 0) return def ; /* error? */ 

return jn('&' , jn (name, jn (def , nil))) ; 

} 
if (c == ':') { /* expand "let" */ 

long name, def, body; 

name = in (0,0); if (name < 0) return name; /* error? */ 
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p = jn(iiame,p) ; 

def = in(l,0); if (def < 0) return def ; /* error? */ 

body = in (1,0); if (body < 0) return body; /* error? */ 

p = pop(p) ; 

if (! at (name)) { 

long var_list; 

var_list = tlCname]; 

name = hd[name] ; 

def = 

jn('\' ' , jn(jn('&' , jn(var_list , jn(def ,nil))) ,nil)) ; 

} 
return 
jn( 
jn('\' ' , jn(jn('&' , jn(jn(name,nil) , jn(body,nil))) ,nil)) , 
jn(def ,nil) 

); 

} 

{long p2; 
for (p2 = p; !at(p2); p2 = tl[p2]) { 
long p3 = hd[p2] ; 
if (p3 == c) return c; 
if (hd[p3] == c) { 

long first, last, next; 
first = last = jn(c,nil); 
for (p3 = tl[p3]; !at(p3); p3 = tl[p3]) { 
next = in(l,0) ; 

if (next < 0) return next ; /* error? */ 
last = tl [last] = jn(next ,nil) ; 
> 
return first; 
} 
} 
return c; 
> 



